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and Tape Systems, Form C28-0334 
IBM 1410 Autocoder, Form C28-0309 
IBM 1410 Principles of Operation, Form A22-0526 
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IBM 1410 Input/Output Control System 



The Input/Output Control System for the ibm 1410 
Data Processing System is comprised of program rou- 
tines written by the ibm Programming Systems to pro- 
vide users with efficient, pretested routines for reading 
and writing card and tape records. 

Programming of input and output routines that 
handle records efficiently is difficult. The routines used 
in iocs have been found through experience to be effi- 
cient. By using this system in all programs, standard 
input and output routines are provided. Such routines 
simplify and standardize console operations. 

iocs provides the following features while satisfying 
the requirements for reduced programming, efficient 
routines, standardization, and elimination of input/out- 
put programming errors: 
| 1. Reading and writing of data records simultane- 
ously with processing. 

2. Macro-instructions that handle records sequen- 
tially, even though they are in blocked form on an input 
tape, or are to be written in blocked form on an output 
tape. 

3. Checks for proper mounting of input tapes and 
aids in the checking of each tape used. By the use of 
label records, each reel of tape may be identified and 
checked before being used in the program. 

4. Routines for processing unit records. Unit records 
may be read, punched, or printed on-line using macros. 

5. Error routines for tape and unit records, that 
correct errors whenever possible. 

The functions provided by iocs are incorporated 
into the user's program during assembly by ibm 1410 
Autocoder. Flexibility is given the user by allowing 
him to specify in free form a variety of program 
parameters with a minimum number of cards. Only 
the necessary coding is generated to reduce storage 
requirements. 

Whenever programming or machine errors occur 
during an input or output operation, they are often 
difficult to diagnose because of the complexity of these 
operations. If iocs is being used as a standard input/ 
output routine, a thorough understanding of how it 
operates becomes desirable in order to be able to diag- 
nose quickly any difficulties in machine operation that 
might occur in this area. 

The manual describes general as well as detailed 
flow charts to aid in understanding the operation of 
iocs. However, no attempt is made to describe iocs 
checkpoint and restart, real time, or disk applications. 



Two conventions are used throughout this manual in 
reference to iocs labels. The dollar sign ($) is used in 
lieu of iocs, as the first four label characters e.g., sentry 
instead of iocsentby. The hyphen ( -) is used in labels 
that have variable prefixes. One hyphen is used in lieu 
of the channel number (e.g., $cs-sfs), and two hyphens 
in lieu of a file prefix (e.g., $--full). 



Tape File and Channel Schedulers, Interrupt 

Scheduling is that part of iocs that controls the man- 
ner in which i/o needs for files are serviced. For tape 
files, the scheduling is performed by file schedulers in 
correlation with one or more channel schedulers. 



File Scheduling 

The specification of a tape file in the dtf, at compilation 
time, causes the generation of one file scheduler. The 
latter serves as a common subroutine for all get or put 
macros referring to the file. The file scheduler is 
entered from a get to make the next block of logical 
records available to a get macro when the current area 
is empty, i.e., all logical records in the current block 
have been processed. For a put macro, the file sched- 
uler makes the next block area available for processing 
when the current area is full, i.e., has been filled with 
logical records. The i/o instructions to read a block of 
records into storage or write a block out are initiated 
in the file scheduler. 

The file scheduler coding generated varies according 
to the application specified by the dtf for the file. The 
file type (e.g., output tape), the data characteristics 
(•e.g., variable-length, blocked records), and the op- 
tional features (e.g., the specification of two buffer 
areas in conjunction with the overlap and priority 
special features) all influence the coding generated. 

buffered file scheduler, two areas 

Use of two areas for a file allows a look-ahead approach 
that enables the overlapping of processing and i/o. 
Case Studies 1, 2, and 3, on Chart A, illustrate how 
this is done. In Chart A, the number associated with a 
block is a step number. In the case study descriptions, 
the execution of a step is indicated by (n), where n 
stands for the step number; reference to another step 
by step n. 
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Case Study 1: One file only on channel 1 (file A). An 
i/o operation has been started in area 2 and process- 
ing is starting in area 1 (J). 

While area 1 is being processed, the area 2 i/o opera- 
tion terminates (2), and an interrupt to check it 
occurs (3). Since no new i/o operation can be started 
(4), control returns to complete the processing in 
area 1 (6). Then, the file scheduler is entered. A test 
indicates area 2 is available (7), the need for an i/o 
in area 1 is flagged (12). The channel is free (13) and, 
since an i/o operation is to be started (14), it is 
started for area 1 (15). Processing is then resumed 
with area 2 (16). Note that i/o and processing were 
not overlapped during step 6. 



PENDING SWITCH 

Every two-area file scheduler has a pending switch. 
The pending switch is set on to indicate that a tape 
operation is to be initiated in an area and it stays on 
until the needed i/o operation is started, completed, 
and checked. In case study 1, the pending switch is set 
on at step 1, turned off at step 3, and turned back on 
at step 12. 

Case Study 2: Same as case study 1, except there is an- 
other file on the channel ( file B ) . The pending switch 
for file B is on. 

At step 3, the channel is clear so the pending 
switches are "interrogated" (4). Since the switch for 
file B is on, a tape operation for file B is started (5). 
Assuming the channel is still busy at step 13, steps 
14 and 15 are omitted. Note how processing and i/o 
are overlapped throughout the sequence traced. 

FOBCING SITUATION 

A forcing situation for a two-area file occurs when 
entry is made to the file scheduler and another area is 
not available. Two possibilities, with resultant conse- 
quences, can exist: 

1. The channel is busy with another file's i/o 
operation: 

a. The channel is cleared. 
I b. An i/o operation for the forced file is started, 

c. The channel is cleared. 

2. The channel is busy with this file's i/o operation: 
a. The channel is cleared. 

Note that for a one-area file, every entry to the file 

scheduler is a forcing situation. 

Case Study 3: Same as case study 2, except that the i/o 

operation for file A has not terminated by the time 

step 7 is entered. Steps 2 through 5 consequently do 

not exist. 

Since the test of the pending switch at step 7 deter- 
mines that file A does not have an available area, it is a 



force situation. A force loop is now entered to wait till 
the i/o operation terminates (8). 

The i/o is then checked (9), completing the clear 
channel operation. The pending switch is tested again 
(10), and is now found to be off. Therefore^ the force 
situation comes to an end. The channel is not busy at 
step 13, so step 14 is entered, but the i/o started at step 
15 may be either for file A or B (since both pending 
switches are on). -Note that the pending switch tested 
in step 10 would be on if the operation cleared on the 
channel was for another file; an i/o operation for the 
forced file would be started at step 11, and the force 
loop would be re-entered. 

PENDING NETWORK AND PRIORITY 

The pending switches for all two-area files on a chan- 
nel are linked together. This aggregate is called the 
pending switch network for the channel. The linkage 
from one pending switch to another is via their off- 
status branch addresses. For the pending switch below: 

Label Operation Operand Explanation 

nop wm over bxpa = pending on 

bxpa xxxxx No wm over bxpa = pending off 

xxxxx represents the address of the nop in another 
pending switch. The next sequential instruction follow- 
ing the pending switch is the i/o instruction for the file. 

The pending switches in the network are linked in 
high-to-low (0-9) relative priority for the respective 
files on the channel. When the network is entered at 
the top, control passes down the network via the off- 
branches until a pending switch is found in on status. 
Control then drops through the switch to the tape 
operation. The pending network is ordered by the 
priority assignment routine during an open operation 
for all two-area files named in the open (or for files 
already open), unless priority assemble was specified, 
in which case the assignment was done at compilation 
time. 

In the case studies, the pending switch network is 
entered in step 4 and in step 14. Note that the i/o 
started in step 15 of case 3 depends on the priority 
assigned files A and B. 



Channel Scheduling 

The channel scheduler is generated by the specifica- 
tion of diocs channel. The file scheduler uses the 
channel scheduler as a subroutine for two main opera- 
tions. The entries and operations are: 

1. Clear channel operation: This is done in a forcing 
situation; e.g., case study 3, steps 8 and 9. The channel 
must be forced clear of any unchecked i/o operation 
before another i/o operation can be started for the 
forced file. 



2. Start channel operation: This is done just before 
the file scheduler returns control to the macro; i.e., 
case studies, steps 13, 14, and 15. If the channel is not 
busy (step 13), the pending network is entered (step 
14). If there is an i/o operation to be started, it is 
started for the highest priority pending switch found 
on ( step 15 ) . 

These operations are also executed, when necessary, 
during end of reel and macro processing of open, 
close, etc. 



INTEBBUPT 

Interrupt coding also links into the channel scheduler. 
After the operation is checked and the pending switch 
turned off, the channel is started again by going to the 
pending network ( see case studies, steps 3, 4, and 5 ) . 

TWO-CHANNEL OPERATIONS 

When there are two channel schedulers, the channel 1 
scheduler exits into the channel 2 scheduler for non- 
forcing operations. 
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Overall Descriptions 



The overall processing in iocs is covered by Charts aa 
and ab and by Figure 1. Chart aa is an overall chart for 
file and channel scheduling; Chart ab covers open, 
close, feorl, rdlin, and end of reel. These two charts 
are described by functional operation rather than block 
by block. Figure 1 is an overall table that summarizes 
tape and unit record error procedures. The description 
of Figure 1 discusses these procedures more fully. 

Some of the descriptions refer to the file reference 
address. This address is the starting location of the file 
reference table for the file. The reader may find it help- 
ful to refer to this table, included as Figure 7, and 
described in the Programming Condition Analysis Aids 
section of the manual. 

In the operational descriptions of Charts aa and ab, 
the convention ( xxnn ) indicates the block whose proc- 
essing is being described. The convention block xxnn, 
or (at block xxnn) is used to refer to another block. 
The reader is again reminded that in a label, the con- 
vention of two hyphens (--) designates the file prefix 
(e.g., $--full) either generated by iocs or specified 
by the user. One hyphen (-) designates the channel 
prefix (e.g., $cs-sfs). The dollar sign ($) substitutes for 
the first 4 characters in the label, viz., iocs. 



Scheduler Operations, Interrupt 

Chart aa is an overall flow chart for file and channel 
scheduling. The channel scheduler, shown on columns 
1-3 on Chart aa, is described for three operations: Start 
Channel Operation, Interrupt Operation, and Force 
Channel Clear Operation. The file scheduler, shown on 
columns 4-5 on Chart aa, is described for three opera- 
tions: Two- Area Operation, Non-Force; Two- Area 
Operation, Force; and One-Area Operation. 

Scheduling is covered on a detailed level in Charts 
ba, bb, bc, bd, be, and bf. 

Channel Scheduling 

START CHANNEL OPERATION 

This operation occurs to restart the channels, and is 
executed whenever appropriate in various iocs rou- 
tines. If a channel is already in operation, control does 
not wait for the operation to terminate. A bol on each 
channel acts as a gate to further action. The following 
table shows the possibilities: 



Channel 1 Channel 2 



Action 



Busy 
Busy 



Busy 
Free 



Free 



Free 



Busy 



Free 



Start channel 2 if possible after check- 
ing the previous i/o operation, if any. 
Start channel 1 if possible after check- 
ing the previous I/O operation, if any. 
Start both channels if possible after 
checking previous i/o operations, if any. 

The operation starts by an sbr caaod to set the exit 
linkage at $intext, block AA23. A test of the disable 
switch follows to determine if a start channel operation 
can be made (AA02>. If the disable switch is on, control 
returns immediately to the original routine. Otherwise, 
the channel 1 scheduler is entered at scsient, block 
AA04, by means of a bxpa. 

If channel 1 is in operation (AA04), the boli branches 
to the channel 2 scheduler, $cs2ent, block AA13. 
Otherwise, a bopri tests if there is an unchecked 
i/o operation on the channel caaod). If there is, the bopr 
branches to the file scheduler coding block to make 
the check, block aao6. On return from checking, or if no 
check is made, control drops through the force switch 
which is off caaoo). 

The inquiry cbiprd or unit record (buprd request 
latches are serviced ( not shown ) if applicable and then 
the pending switch network is entered (aaid. If no 
pending switch is on, an i/o operation cannot be 
started, and control branches from the lowest-priority 
pending switch on channel 1 directly to the channel 2 
scheduler at $cs2ent, block aai3. If an i/o is started, it 
is for the file of highest priority whose pending switch 
is on. Return to the channel 1 scheduler in this case is 
made at csiret (aai2> to set the address of the status 
check, coding block aao6 (in the file scheduler for 
which the i/o operation was started), into the branch 
address of the bopri at block aao!>. If the i/o instruction 
was Nop'ed when executed, control remains in the file 
scheduler to execute the status check immediately. 
After a successful re-execution, the return to the chan- 
nel scheduler is made to block aau9. 

The channel 2 scheduler is then entered at $cs2ent 
(AA13). If channel 2 is in operation, the bol2 branches 
to block AA22. If channel 2 is not busy, the operation of 
blocks aai4 to AA15 and aais through AA21 is identical 
to the channel 1 operation already described. Control 
then proceeds, via block AA22, which has no effect, to 
sintext (AA23). An unconditional branch is made as set 
by block aaoi and the priority alert mode is re-entered. 
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INTERRUPT OPERATION 

The operation is similar to a start channel except that 
both channels cannot be busy because an i/o operation 
terminating on one of the channels caused the interrupt. 
The operation is begun at core storage location 
00101. sintext, block AA23, is set with the contents of 
the B-register less 6, and the 1411 status is saved if 
required (AA03). The channel 1 scheduler is then en- 
tered at SCS1ENT (AA04). 

After channel scheduling operations are finished, the 
1411 machine status is restored if it was saved caa22). 
Control then re-enters the priority alert mode (AA23) 
and branches as set by block AA03 to the instruction at 
which the interrupt occurred. 



FORCE CHANNEL CLEAR OPERATION 

This operation can be executed for either channel. It 
forces an i/o operation in progress to terminate before 
it is checked. It does not restart the channel or affect 
the other channel. A channel is forced clear before 
issuing an i/o command in a 1-area file scheduler, in 
all unit record schedulers, and in a 2-area file sched- 
uler when a forcing situation exists. 

The operation for channel 1 starts by an sbr (aao?) 
to set the exit linkage in the channel 1 force exit, $csisfx 
block aaio. The force switch at block aao9 is set on 
(aaos). A sequence, holi to scsipr, bopri to scsipr, is 
entered <aao9). If channel 1 is free and clear, control 
drops through the sequence, the force switch is reset 
off (aaio, and control returns to the proper routine as 
set by block aao7. 

If channel 1 is free but not clear, control drops 
through the boli to the bopri which branches to scsipr, 
block aaos. At scsipr another bopri branches to the file 
scheduler coding block to check the operation (AA06). 
After checking, the force switch is on, so control returns 
to the bol, bopr sequence <aao9) which is now dropped 
through since the channel is free and clear. 

If channel 1 is busy, the boli branches to scsipr, 
block aaos. There control drops through the bopri to 
block AA09, unless the overlap request latch for chan- 
nel 1 was just set. At AA09, control returns to the boli, 
since the force switch is on. The loop is repeated until 
the overlap request latch is set. The channel is then 
free but not clear, and further processing is as pre- 
viously described. 

Processing for a force channel 2 clear operation, 
blocks AA16 through aai9 and AA14 to aais, follows 
logic identical to that for channel 1. 

In a bootstrap force operation, entry is made at block 
aaos, to utilize the already-established force exit link- 
age at block aaio, after the bootstrap operation is 
forced clear. 



File Scheduler Operations 

Entry to the file scheduler is made from a macro when- 
ever all logical records have been processed in an area. 
The main function of the file scheduler is to make an- 
other area available and prepare it for the macro. 



two- area operation, non-force 

The file scheduler exit, block AA38, is set for return to 
the macro. Housekeeping is performed if needed (AA3D, 
e.g., an input file has 1 added to its block count. The 
pending switch is tested to see if the other area is avail- 
able (AA32). If it is (pending switch off), control 
branches to s--pa. At $--pa, housekeeping is performed 
to enable the macro to process the new area and the 
pending switch is set on to signify the need for an i/o 
operation in the just-processed area (AA33). Further 
housekeeping is performed if necessary, such as reset- 
ting the area limits for blocked records (AA34). $--trig is 
normally (AA35) a branch to sentry, block aaoi, to start 
the i/o operation for this or a higher-priority file (AA36). 
On return from starting an i/o operation, further house- 
keeping is done such as adding 1 to the block count for 
an output file (AA37). Control then exits the file sched- 
uler to the macro that caused entry (AA38). 

Note that s--trig is also used as a pivot for excep- 
tional conditions. In these cases, $--trig is set by some 
other iocs routine. These conditions include wlr proc- 
essing for input files (if specified), priming for input 
files, and linkage to the end-of-reel routine for all files. 
In wlr processing, $--trig is reset to normal. If the 
user decides to accept the record, control returns to 
$--trig. If the record is rejected, another tape record 
is read to replace it by returning to block AA32 to start 
a force operation. In a prime operation, $--trig is reset 
to normal and control returns to AA32 to begin a 
force operation. The setting of s--trig to branch to 
wlr or end-of-reel processing was done in the iocs 
error routine; the setting of s--trig to branch to prime 
was done during open procedures either from an open 
macro or end-of-reel processing. 



TWO-AREA OPERATION, FORCE 

If the test at block AA32 indicates that the other area is 
not available (pending switch on), a force situation 
exists. A bxpa to the appropriate channel scheduler 
force entry, block AA07 or aa16, is made to force the 
channel clear (AA39). After the channel is clear, sintext, 
block AA23, is set to go to the bootstrap force entry in 
the channel scheduler at block aaos or aai7, in case a 
bootstrap force is needed <AA40). The pending switch is 
tested again to see if the area has been made available 
CAA4D. There are two possibilities: 
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1. Pending switch off: The i/o operation cleared on 
the channel was for this file. The force situation no 
longer exists, and control branches to $--pa, block AA33. 

2. Pending switch on: The i/o operation cleared on 
the channel was for another file, and so the bootstrap 
force is necessary. 

Control drops through the pending switch which is a 
nop (AA42) to execute the i/o instruction (AA43>. If the 
i/o operation was started, the bol- branches to $-ret in 
the channel scheduler to set the status test linkage 
(AA44). Channel scheduler operations eventually exit at 
$intext (block AA23) which has been set (by block 
AA40 ) to re-enter the channel force routine at the boot- 
strap entry of aaos or aai7. The channel is forced clear 
of the i/o operation just started, control returning to 
block AA40 via the already established force exit link- 
age (AA45). When the pending switch is tested, it is now 
off (AA4D, the force situation no longer exists, and con- 
trol branches to $--pa, block AA33. 

If the i/o at block AA43 was not started, control drops 
through the bol- to make the status check and turn the 



pending switch off in-line (aa47 through AA49). The 
channel scheduler is then entered with control going 
via its exit, sintext, block aa23, to the bootstrap force 
entry as described before. 



ONE- AREA OPERATION 

The file scheduler exit, block AA38, is set for return to 
the macro and any necessary housekeeping is performed 
(AA3D. The channel is forced clear (AA39) and the i/o 
operation is executed (AA43). An ser or sfr follows the 
latter when variable-length records with an wlr check 
are specified. The status test is performed (AA47). This 
forces the operation to terminate. If the tape error rou- 
tine is entered, corrective procedures are performed 
with or without manual intervention (aa48>. After any 
necessary area-control housekeeping is performed 
(AA34), $--trig branches to sentry to restart the channel 
(AA36, AA37). On return, further housekeeping is per- 
formed, such as checking Form 4 records (AA37>. Return 
to the macro is made (AA38). 
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OPEN, CLOSE, FEORL, RDLIN, and End of Reel Descriptions of Processing 



Introduction 

The routines generated to process open and close 
macros depend on the specifications in the diocs card 
packet. The inclusion of tape as an iodevice generates 
the bulk of the coding, feorl, bdlin, and end-of-reel 
are exclusively for tape. 

The diocs routines generated form one logical unit 
which is shown as Chart ab. Much of the coding is 
shared because of the similarity of the functions per- 
formed. For example, the part of the end-of-reel proc- 
essing that is concerned with opening a new reel of 
tape is essentially the same as the open procedures 
performed for an open macro. Detailed charts for all 
the operations are included as Charts da, db, dc, dd, 
de, df, and dg. Subroutine blocks have been used in 
Chart ab to show its relation to the detailed charts. 

macro fobmat 

The out-of-line block of coding executed for a macro 
is a subroutine to the macro. The macro itself is in-line 
with respect to the user's coding. It consists of linkage 
to the diocs routines and a calling sequence listing the 
files to be processed by their file reference addresses 
(file names). Each address is preceded by a check 
character which is a code to designate the type of macro. 
The last file named in the calling sequence is always 
followed by a termination character of J and a termina- 
tion address. The files named in an open or close macro 
may be unit record or tape. The execution of the cod- 
ing for a particular macro will be called an operation. 
An open macro is given as an example. The source 
statement, "open filea, fileb, filec," would be com- 
piled into the one-for-one statements: 

Explanation 
Linkage to DIOCS routines. 

C is the check character for an 
OPEN operation. FILEA, etc., 
are the file reference addresses 
or file names. 

Terminal character and address. 

The open operation starts by a branch to $clop. After 
all files are opened in calling sequence order, control 
returns to the branch to sentby instruction. 



end of reel 

The out-of-line block of coding executed for end-of- 
reel is a subroutine to the file scheduler. The exit link- 
age from the file scheduler is set up by the tape error 
routine after sensing a tape mark (input) or reflec- 
tive spot (output). 



Operation 
B 


Operand 
$CLOP 


C 


FILEA ) 


C 


FILEB \ 


C 


FILEC ) 


B 


$ENTRY 



preliminary processing, block aboi 

A description of the initialization which precedes file- 
by-file processing follows : 

1. The first file to be processed is identified. This is 
done by setting up a pointer to the beginning of the 
macro calling sequence. 

2. The program leaves the priority alert mode of 
operation. 

3. The channels are cleared of all unchecked two- 
area tape operations that have been previously initiated. 

4. iocs is set so that if an i/o macro is executed in a 
user routine, its execution cannot lead to the resumption 
of normal channel operations (via sentry). The interro- 
gation of pending switches ( two-area tape files ) and of 
priority request latches (inquiry, real-time, etc.) are 
bypassed. See discussion of disable switch in Start 
Channel Operation, Chart aa. 

5. The contents of index register 15 are saved so 
that iocs can use this index register for file processing. 

INITIAL FILE-BY-FILE PROCESSING, BLOCKS AB02-AB03 

File-by -file processing begins (or continues) by mov- 
ing the first (or next) segment of the macro sequence 
to a work area (AB02). A segment consists of the check 
character addressed by the pointer (see step 1 under 
"Preliminary Processing"), file reference address, and 
the check character for the next file. The file reference 
address is moved into index register 15 for processing 
the current file; the pointer is then incremented by 6 
to prepare for the next file. A test is then made to deter- 
mine if it is a rdlin macro. If it is, control branches to 

block AB24. 

Otherwise, a table look-up is executed by file type 
in a table of routine linkages (abos). For each file type, 
there is a sequence of two addresses; one for open, the 
other for close ( or feobl ) operations. The bit structure 
of the check character in the calling sequence work 
area is examined to determine which address to use. 

PRIORITY ASSIGNMENT, BLOCKS AB04-AB07 

The priority assignment routine, if generated, is exe- 
cuted only during an open operation. The considera- 
tions for all diocs configurations are as follows: 

A. Non-Overlay: The routine remains in storage at 
all times, unless overlayed by the user in conjunction 
with the use of the origin option. The routine is en- 
tered and executed at block AB07 only for a two-area 
file (file type = 2), as provided by the tape sequence 
in the routine linkage table. (For a one-area file [file 
type = 1], the tape sequence causes control to go 
directly to open procedures, block abos. ) The pending 
switch address and DTF-specified priority for the file 
are entered into a table which contains such addresses 
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and priorities for all files previously opened. The table 
is sorted by relative priority on each channel. The 
pending switch for the file is then inserted into the 
pending-switch network on the respective channel. A 
previously opened file is eliminated from the table 
before assignment begins. Control then branches to 
tape open procedures, block abos. 

B. Overlay (before the Second IOCS load): A dummy 
sequence in the routine linkage table forces control to 
pass through the priority assignment routine for every 
file type. A test is made to determine if it is a two-area 
tape file (AB04). If it is, the file is processed in the man- 
ner described earlier ( see entry A ) . A test is then made 
in the calling sequence work area to determine whether 
there is another file to process cabo5). If there is, con- 
trol returns to block AB02. Otherwise (the J terminal 
character was encountered ) the macro pointer is reset 
to point to the first file in the calling sequence. The 
dummy sequence in the routine linkage table is re- 
placed by the tape sequence described under entry C. 
Control then branches to the load program at core 
location 00281. The second iocs load is brought in to 
overlay the priority assignment routine (AB06). The 
load execute is to $exit, block AB02, to resume normal 
file-by-file processing. 

C. Overlay (after the Second IOCS load): The priority 
assignment routine has been overlayed. Every tape file 
named in the open is processed according to the new 
tape sequence in the routine linkage table. Control pro- 
ceeds to block abos to start open procedures. 

D. Assemble: Priority assignment was accomplished 
at compile time. The tape sequence for an open is 
identical to that described under entry C. 

TAPE OPEN PROCEDURES, BLOCKS AB08-AB12 

Open procedures begin cabo8) by moving the file refer- 
ence address for the file into a table which is arranged 
by file identification. The table is used by the error 
routine. Housekeeping for proper operation of the file 
scheduler is then executed. 

The rewind procedure for the file is executed (aboo) 
preparatory to header label procedures. If it is a stand- 
ard label file, the header label is processed according 
to the dtf options specified by the user (abio>. These 
procedures, for input and output files, are: 

Input File: The label is read into the iocs label area. 
The label is checked completely, partially, or not at all, 
depending on the checklabel entry of the dtf. 

Output File: When a retention check is to be made, 
the label is read into the iocs label area and checked 
before iocs starts building the new label in the label 
area. After the fields specified by the dtf have been 
moved in, the user may modify the label information, 
or add to it, by using exit 4. If the user wants to check 
the label and build the new label himself, he can bypass 



both iocs coding blocks by using exit 3; however, he 
must read the label himself. Finally, the tape is re- 
wound and the contents of the iocs label area are 
written on the tape. 

Input file processing continues cabid from AB09 or 
abio to exit 7 procedures. Exit 7 may be used to check 
a non-standard header label or a label in addition to a 
standard label; however, the user must read the label 
himself. After exit 7 procedures, iocs bypasses a tape 
mark, if required (tm specified on the checklabel 
entry in the dtf ) . 

Output file processing continues (AB12) from aboo or 
abio to exit 5 procedures. Exit 5 may be used for check- 
ing and creating a non-standard header label or creat- 
ing a label in addition to a standard label; however, 
the user must write the label himself. After exit 5 pro- 
cedures, iocs writes a tape mark, if required (tm speci- 
fied on the checklabel entry in the dtf ) . 

After handling exits 5 or 7, control branches to the 
final tape procedures at block abi3 for all files. 

FINAL TAPE PROCEDURES, BLOCK AB13 

If required, a checkpoint identifier record, followed 
by the checkpoint record, is written on the diocs- 
designated tape. If the file has a pending switch ( two- 
area only), it is turned off. Control then passes to the 
routine that tests if there is another file to process, 

block ABU. 

COMMON TEST AND EXIT PROCEDURES, BLOCKS AB14-AB17 

A test is made in the calling sequence work area to 
determine whether there is another file to process 
(AB14). If there is, control branches to block abo2. Other- 
wise (the J terminal character is sensed), file-by-file 
processing ends and the following final housekeeping 
is performed (AB15): 

1. The address of the J character in the macro call- 
ing sequence ( not the one in the work area ) is set up 
as exit linkage. 

2. The user's contents of index register 15 are re- 
stored. 

3. iocs is reset to permit the resumption of channel 
scheduler operations ( via sentry ) . 

In a macro operation, the return is to the instruction, 
branch to sentry, to restart the channels (AB16), and 
re-enter the priority alert mode. 

In an end-of-reel operation, the place of return is to 
the file scheduler via one of two exceptional condition 
vectors <abi7). The particular vector used depends on 
whether it is an input or output file; the branch address 
of the vector depends on whether it is a one-area or 
two-area file (see Figure 7 or Chart df for details). 
The file scheduler restarts the channels (preceded by 
a priming operation for an input file ) . 
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BEGIN CLOSE PROCEDURES, BLOCK AB18 

Processing begins by determining if the current file 
named in the close or feorl macro is a fixed, blocked, 
output file. If it is, and if there is a partially filled block 
waiting to be written, the block is padded with blanks 
or the DTF-specified padding character, and written on 
the output tape. If it is a close operation, the internal 
reel sequence counter is set to 0. Then both close and 
feorl procedures join end-of-reel processing at block 
AB22 (input) or block AB21 (output). 

END-OF-REEL PROCEDURES, BLOCKS AB19-AB22 

End-of-reel processing is entered from the file sched- 
uler via the pivot linkage set up by the error routine 
when the previous tape operation for the file was 
checked and an eof condition was sensed. 

To facilitate processing, a single-file macro operation 
is simulated (AB19). The calling sequence work area is 
set up with a check character of *, followed by the file 
reference address for the file, and the terminal char- 
acter J. The file reference address is set into index reg- 
ister 15 after the user's contents are saved, the priority 
alert mode is exited, the channels are cleared, and iocs 
is set to prevent normal resumption of channel opera- 
tions. The macro pointer is set to address one of two 
exceptional condition vectors for exit linkage, depend- 
ing on whether the file is input or output. 

For an input file, trailer processing is begun cab20). 
For a standard label file, after the label is read into the 
iocs label area, the required internal counts are com- 
pared to the corresponding trailer counts. A discrep- 
ancy is noted by an appropriate message. After any 
exit 6 processing that the user may have included for 
trailer labels, the identifier field in the iocs label area 
is tested for ieof. If so, control branches to the user's 
DTF-specified end-of-file address. For a non-standard 
label file, if there is a label, the user must employ 
exit 6 to process it and establish whether it is the last 
reel. The user must read the label himself. If the user 
establishes that it is the last reel, he must inform iocs 
by moving ieof into the iocs label area in order to get 
to his end-of-file address. If exit 6 is not used, control 
branches, without a test for end of file, to the user's 
end-of-file address. 



For an output file, the coding block for trailer pro- 
cedures, AB21, is shared by feorl and close. A test is 
made to determine if there is a block waiting to be 
written ( two-area file only ) . If so, the block, followed 
by a tape mark, is written. For a standard label file, 
processing continues by preparing the trailer label with 
the required count fields in the iocs label area. Addi- 
tional information may be entered by use of exit 1. 
After the label is written, exit 2 is provided for con- 
structing an additional label; the user must write this 
label himself. For a non-standard label file, only exit 2 
is provided for constructing the trailer(s). A tape mark 
is written on the tape if necessary. 

Output processing joins input processing at block 
ab22. The tape is closed by executing the rewind option, 
and the reel sequence number is updated. 

For a close operation, control branches to block 
AB13 to complete processing for the current file. 

For an end-of-reel or feorl operation, the new reel 
for the file is set up. If an alternate tape drive is speci- 
fied, iocs swaps base and alternate tapes automatically. 
Otherwise, iocs enters a waiting loop after typing an 
identifying message so that the operator may mount 
the new reel on the same drive. Control then joins open 
procedures at block abos to open the new reel. 

UNIT RECORD PROCESSING, BLOCK AB23 

Little or no housekeeping is performed for a unit record 
file named in an open or close macro. For an open 
macro (assuming all of iocs has been loaded), the 
block count is reset to 0. For a punch file named in a 
close, a blank card is punched to move the last card 
punched into the stacker. For a printer or reader file 
on a close, no processing is done. 

Control then proceeds to the coding block that tests 
if there is another file to process, block AB14. 

RDLIN PROCESSING, BLOCK AB24 

The rdlin card is read into storage and the label in- 
formation is moved into the appropriate internal fields 
for the file. Control then proceeds to the coding block 
that tests if there is another rdlin card to process, 

block AB14. 
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General Error Operations 

Two distinct error routines may be generated: one for 
tape if tape is included as an iodevice; the other for 
unit record if punch, reader, or printer is included. 
The conditions and corrective procedures for tape and 
unit record are summarized in the tables in Figure 1. 
A description of the tables follows. An overall chart 
for the tape error routine, Chart ac, follows Figure 1. 
This chart is not described. The tape error routine is 
shown in detail on Charts ea, eb, and ec. The unit 
record error routine is shown on Chart ed. 



Description of Tape and Unit Record Error 
Routine Tables 



TAPE ERROR CONDITIONS 

The tape error routine is entered for two reasons: first, 
because of an unsuccessful i/o operation and second, 
because of an exceptional condition (wrong length 
record, first character of a record is a tape mark on 
read, or sensing of the reflective strip on the tape on 
write ) . 

1. If the entry is due to an unsuccessful tape opera- 
tion, the routine: 

a. Determines the nature of the failure. 

b. If possible, corrects the operation and returns 
control to the instruction immediately follow- 
ing the ba or bex instruction which originally 
sent control to the error routine. (Note that 
the ba or bex instruction just described will be 
referred to as the channel ba or bex instruction 
in the following descriptions and charts. ) 

c. If unable to correct the operation, types out 
an error message and enters a wait loop for 
operator action. An exception, explained later, 
to this last statement exists if autodump has 
been specified by a diocs readerror entry with 
an operand of only tape,cu and the error is a 
data check on a normal read operation. 

2. If the entry is due to an exceptional condition, 
the routine provides linkage between the file, for 
which it was entered, and the programmer's 
wrong-length-record routine or the iocs end-of- 
reel routine. 

The tape error routine is covered in more detail in 
the following description and in the left side of Figure 
1. In the description, it is assumed that whenever an i/o 
operation is corrected through re-execution, control 
returns to the instruction immediately following the 
channel ba or bex instruction. It is also assumed that 
the action taken for a described condition applies to 
situations where only that condition exists. 



BUSY: The routine loops until the device is not busy, 
executes the i/o instruction and returns control to the 
instruction immediately following the Channel ba or 
bex instruction. 

NOT READY: The routine types a Not Ready message, 
loops until the device is made ready, executes the i/o 
instruction, and returns control to the instruction im- 
mediately following the Channel ba or bex instruction. 
DATA CHECK (Write): The routine attempts to 
correct the condition by performing the following 
sequence: 

1. Backspace, rewrite, and check (once). 

2. Backspace, skip, rewrite, and check (eighteen 
times ) . 

3. Types a data check on write message (20114 dck) 
and enters a wait loop for operator action. (The 
only possible option on a output tape error is to 
attempt the write operation again. This option is 
assumed by the error routine if the operator 
presses the inquiry request key and then the 
inquiry release key. ) 

4. Backspace, skip, rewrite, and check (20 times). 
After twenty attempts, the message and wait loop 
routine at step 3 is re-entered. 

ZERO LENGTH RECORD (Write): The routine 
types a message (20117ZRD indicating that the first 
character in the tape record core storage area was a 
group mark/word mark. A wait loop for operator action 
is entered. The only possible option is to proceed as if 
the operation were a success. This is accomplished if 
the operator presses the inquiry request key, enters 
the code word proc, and presses the inquiry release 
key. Control returns to the instruction immediately fol- 
lowing the Channel ba or bex instruction. 
DATA CHECK (Read): The routine attempts to cor- 
rect the condition by executing the following sequence: 

1. Backspace, re-read, and check ( 19 times ). 

2. If autodump has been specified by a diocs read- 
error entry of only tape, cu and the record in 
error is not a label, control goes to step 5. 

3. The routine types a message indicating a data 
check on a read operation. The message is 
40H9LRE if the error was on a label record, or 
xoii3dck, if the error was on a data record (x in- 
dicates the number of options minus one). A wait 
loop for operator action is entered. The options 
available depend, in part, on the diocs readerror 
entry. 

A. If there is no entry, the options available are 
proc, retry, and skip. 

B. If the entry is scan, the options available are 
proc, retry, skip, and *scan. 

C. If the entry is tape, cu, no options are avail- 
able. 



General Error Operations 19 



D. If the entry is scan, tape, cu, the options 
available are proc, retry, skip, *scan, and 
dump. 
The operator selects an option by pressing the 
inquiry request key, entering the code word and 
pressing the inquiry release key. The actions 
initiated by the various options are: 

A. If proc is entered, the routine ignores the error 
and returns control to the instruction immedi- 
ately following the Channel ba or bex instruc- 
tion. Processing continues as if the operation 
had been a success. 

B. If retry is entered, control goes to step 4 
where an attempt is made to re-read the rec- 
ord successfully. 

C. If skip is entered, the routine ignores the error 
record, reads the next record on the tape, and 
returns control to the instruction immediately 
following the Channel ba or bex instruction. 

D. If *scan, is entered, the location(s) of the 
asterisk(s) in the error record are typed on the 
console printer, and the message and wait 
loop routine at step 3 is re-entered. 

E. If dump is entered, the record in error is writ- 
ten on the Diocs-specified dump tape and 
control re-enters the message and wait loop 
routine at step 3. 

4. Backspace, re-read, and check (20 times). Con- 
trol returns to the message and wait loop routine 
at step 3. 

5. The record in error is written on the Diocs-speci- 
fied dump tape. The routine reads the next record 
on tape and returns control to the instruction 
immediately following the Channel ba or bex in- 
struction. 

NOISE LENGTH RECORD (Read): The routine 
reads the next record on tape and checks it. If it too is 
a noise record, another read operation is performed. 
This sequence is repeated until ten consecutive noise 
records are read. At that time the message, 20118NLR, is 



typed and a wait loop for operator action is entered. 
The only possible option is to retry the read operation. 
This is assumed if the operator presses the inquiry 
request key and then the inquiry release key. Ten 
more attempts are made to read the record success- 
fully. If the condition is not corrected, control re-enters 
the message and wait loop routine. 
WRONG LENGTH RECORD (Read): The routine 
attempts to correct the condition by executing the 
following sequence: 

1. Backspace, re-read, and check ( 10 times ) . 

2. If unsuccessful in correcting the condition, the 
routine sets up linkage in the file scheduler, from 
which it was entered, to get to the programmer's 
wrong-length-record coding. Control returns to 
the instruction immediately following the Chan- 
nel ba or bex instruction for a two-area file or to 
the instruction at the file reference address (ad- 
dress of file name label) minus 7 for a one-area 
file. 

I/O CONDITION (Tape Mark on Read or Reflective 
Strip on Write): The routine sets up linkage between 
the file scheduler, from which it was entered, and the 
iocs end-of-reel routine. Control returns to the instruc- 
tion immediately following the Channel ba or bex in- 
struction for a two-area file or to the instruction at file 
reference address minus 7 for a one-area file. 



UNIT RECORD ERROR ROUTINE 

Because of the nature of unit record devices, the 
error routine is unable, in most instances, to take any 
corrective action. Therefore, the main function of the 
routine is to notify the operator of the type of error 
and to enter a wait loop for manual intervention. 

The reasons for entry to the routine and the actions 
taken by it are shown in the unit record error routine 
table on Figure 1. 

For a more detailed treatment, refer to Chart ed 
and its description. 
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UNIT RECORD 



REASON FOR 
ENTRY TO 
ROUTINE 



ACTION TAKEN BY THE TAPE ERROR 
ROUTINE 



REASON FOR 
ENTRY TO 
REASON FOR 



ACTION TAKEN BY THE UNIT RECORD 



NOT READY 



TYPE NOT READY MESSAGE 



RE-EXECUTE I/O INSTRUCTION 
AND CHECK --------- 



NOT READY 



A. TYPE NOT READY MESSAGE - 



RE-EXECUTE I/O INSTRUCTION 
AND CHECK --------- 



RE-EXECUTE I/O INSTRUCTION 
ANO CHECK ----- 



A. RE-EXECUTE I/O AND CHECK 



BACKSPACE. WRITE. AND CHECK - - - 

BACKSPACE, SKIP, WRITE, AND CHECK 

TYPE DATA CHECK ON WRITE MESSAGE - 

ENTER WAIT LOOP FOR OPERATOR 
ACTION. THE ONLY OPTION IS TO 
RETRY. -------------- 

RETRY OPTION. BACKSPACE. SKIP. 
WRITE. AND CHECK --------- 



ZERO LENGTH 
RECORD ON 
WRITE 



A. TYPE ZERO LENGTH RECORD MESSAGE 

B. ENTER WAIT LOOP FOR OPERATOR 
ACTION. THE ONLY OPTION IS TO 
PROCEED. -- -- ---- 

C. PROC OPTION. CONTROL IS RETURNED 
TO THE INSTRUCTION SEQUENTIALLY 
FOLLOWING THE CHANNEL BA OR BEX - 



DATA CHECK 
ON READ 
< LABEL READ 
OR NO AUTO 
DUMP SPEC) 



BACKSPACE, READ, AND CHECK - - - - 

TYPE DATA CHECK ON READ MESSAGE - 

ENTER WAIT LOOP FOR OPERATOR 
ACTION. THE CODE WORD FOR THE 
DESIREO OPTION IS ENTERED. - - - - 



PROC- CONTROL RETURNS TO THE 
INSTRUCTION SEQUENTIALLY 
FOLLOWING THE CHANNEL BA OR BEX 

RETRY- BACKSPACE, READ, AND CHECK 

SKIP- READ NEXT RECORD AND CHECK - 

•SCAN- TYPE OUT LOCATION/S OF 
ASTERISK/S IN ERROR RECORD - - - - 

DUMP- WRITE ERROR RECORD ON DIOCS 
SPECIFIED DUMP TAPE ------- 



A. TYPE DATA CHECK ON READ MESSAGE . 

B. ENTER WAIT LOOP FOR OPERATOR 
ACTION. THE ONLY OPTION IS TO 

TRY AGAIN -------------- 

C. RE-EXECUTE I/O INSTRUCTION 

ANO CHECK -------------. 



DATA CHECK 
ON READ 
(AUTO DUMP 
SPEC AND 
NOT LABEL 
READ) 



A. BACKSPACE. READ, AND CHECK 



WRITE ERROR RECORD ON DIOCS 
SPECIFIED DUMP TAPE - - - - 



TYPE AUTO DUMP MESSAGE - - 
READ NEXT RECORD AND CHECK 



A. RE-EXECUTE I/O INSTRUCTION 

AND CHECK ------------ 

B. TYPE DATA CHECK ON WRITE MESSAGE 

C. ENTER WAIT LOOP FOR OPERATOR 
ACTION. THE ONLY OPTION IS TO 
TRY AGAIN ------------ 



RE-EXECUTE I/O INSTRUCTION 
AND CHECK --------- 



WRONG LENGTH. 
RECORD IN • 
LOAD MODE • 



CONTROL RETURNS TO THE INSTRUCTION 
SEQUENTIALLY FOLLOWING THE CHANNEL 
BA OR BEX INSTRUCTION 



WRONG LENGTH, 
RECORD IN 
MOVE MODE 



A. TYPE WRONG LENGTH RECORD MESSAGE 

B. ENTER WAIT LOOP FOR OPERATOR 
ACTION. THE ONLY OPTION IS TO 
TRY AGAIN ------------ 



RE-EXECUTE I/O INSTRUCTION 
AND CHECK --------- 



TYPE PROGRAMMING ERROR MESSAGE - - 

ENTER WAIT LOOP FOR OPERATOR 

ACTION. THE ONLY OPTION IS TO 

TRY AGAIN ------- - - - - 

RE-EXECUTE I/O INSTRUCTION 

AND CHECK ------- 



I/O COND 
PRINT OR 
PUNCH 



TYPE LAST LINE PRINTED OR LAST 
CARD PUNCHED IN ERROR MESSAGE - 

ENTER WAIT LOOP FOR OPERATOR 
ACTION. THE ONLY OPTION IS TO 
TRY AGAIN - - - - 

RE-EXECUTE I/O INSTRUCTION 



READ AND CHECK - - - _____ 

TYPE NOISE LENGTH RECORD MESSAGE - 

ENTER WAIT LOOP. THE ONLY OPTION 

IS TO RETRY THE OPERATION - - - - - 

READ ANO CHECK 



END OF FILE 
CARD READER 
NOT CHECKED 
BY PROGRAM 



BACKSPACE, READ. AND CHECK - - - - . 

SET WRONG LENGTH RECORD LINKAGE - -. 

EXIT TO FILE REFERENCE ADDRESS-7 . 
FOR A I-AREA FILE. EXIT TO THE 
INSTRUCTION SEQUENTIALLY FOLLOWING . 
THE ONE WHICH CAUSED ENTRY FOR A 
2-AREA FILE. 



I/O COND 
I TAPE MARK 
ON READ OR 
REFLECTIVE 
STRIP ON 
WRITE 



SET LINKAGE TO IOCS END-OF-REEL 
ROUTINE -------------- 

EXIT TO FILE REFERENCE AODRESS-7 
FOR A 1-AREA FILE. EXIT TO THE 
INSTRUCTION SEQUENTIALLY FOLLOWING 
THE ONE WHICH CAUSED ENTRY FOR A 
2-AREA FILE. 



TYPE NOT READY MESSAGE 

RE-EXECUTE I/O INSTRUCTION (MAKES 
READER NOT READY) AND GO Tp B OF 
NOT READY SEQUENCE 



END OF FILE 
CARD READER 
CHECKED BY 
PROGRAM 



CONTROL RETURNS TO THE INSTRUCTION 
SEQUENTIALLY FOLLOWING THE CHANNEL 
BA OR BEX INSTRUCTION 



IF UPON CHECKING, IT IS DETERMINED THAT THE OPERATION WAS A 
SUCCESS. CONTROL IS RETURNED TO THE INSTRUCTION SEQUENTIALLY 
FOLLOWING THE CHANNEL BA OR BEX INSTRUCTION. _.„_„. 

THE SEQUENCES OF PROCEDURES SHOWN IN THE TABLES ARE THOSE TAKEN 
FOR SITUATIONS WHERE THE CONDITION WHICH CAUSED ENTRY TO THE 
ROUTINE CANNOT BE CORRECTED 



Figure 1. Tape and Unit Record Error Routine Tables 
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09 
»****A1 **»•*****« 

•SCS1SFS 8AG3* 

•CLEAR CHAN ONE *........: 

* OF UNCHECKEO *RETURN 
•I/O OPERATIONS «T0 CHECK 
•••CHAN 2 
ERROR 



*•*****«••* 



» INITIALIZE » 

» ERROR *. 

• ROUTINE • 

• # 



***A4******** 

• * 

* RE-EXECUTE * 

X* THE *. 

•I/O INSTRUCTION* 



* CHAN • 

BA OR BEX 
•INSTRUCTION* 



•NO BRANCH 



SLMWTGR , 06 
•****B1 *•«**•»*** 
•SAVE LINKAGE TO* 
•CHAN 2 FILE AND* 
•BETWEEN CHAN 1 *X. 
•SCHED AND FORCD* 
* CHAN 1 FILE • 



••••READ OPERATION *X. 



H3 



•WRONG 

•LENGTH 

•RECORD 



•ERHLT 

TYPE ZRL 

ON WRITE 

MESSAGE • • 

•RE-EXECUTED 
• 10 TIMES 



$EROLY 
UNCORRECTABLE 
WRONG LENGTH REC 



CHAN 1 FREE 



NOT READY 



DATA CHECK 



NR . U 
****#B4*********» 

* TYPE OUT * 

* A NOT READY * 
•MESSAGE IF THIS* 

* IS THE FIRST * 

* PASS * 



• C4 «... 

• * • 

SERDLY X 13 
*»***C4***<****** 

• SET LINKAGE • 
YES * BETWEEN FILE • 

,, „ R * X* SCHEDULER AND *. 

•END OF REEL* EOF TESTED* WLR OR EOR • 

* * BY CHAN BA* ROUTINES * 

* * OR BEX *****#***»*»****« 



C3 • * 12 

* * 
•END OF FILE* 



-YES 



EOF NOT TESTED 

BY CHAN BA OR BEX 



• WRITE » 
TAPE MARK 0« 

* NOT WLR * 



* TEN * 
•CONSECUTIVE* 
NOISE LENGTH 
* RECORDS * 
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8 *****E3*****»***» 

**HALT DHA1* 

YES *-*-«-#_»_#_*_#_» 

*........X* TYPE MSG AND *. 

TYPE NOISE*ENTER WAIT LOOP* 
RECORD MSG* FOR REPLY * 



BRANCH ANY 



* C5 *.X. 

* * .X...... 

*»#» . 
IERLV X 
****#C5* ******** 

* EXIT TO 

* LOCATION SET 
...X» BY BLOCK ACOt 
X » OR BY 

* BLOCK AC I 3 

. ********»*»**»*» 



EXIT TO FILE REFERENCE 
ADDRESS-7 FOR WRONG 
LENGTH RECORD OR EOF/EOR 
ON 1-AREA FILE. 
OTHERWISE EXIT TO THE 
INSTRUCTION SEQUENTIALLY 
FOLLOWING THE ONE WHICH 
CAUSED ENTRY TO THE 
ROUTINE 



***E5»*»***** 

•BACKSPACE AND* 

* EXECUTE SKIP • 

X* INSTRUCTION * 

•(ONLY EFFECTIVE* 

* ON WRITE) * 

***••**»•***« 



NO * # 

•• *READ OPERATION *X. 

TYPE WRITE * * 

ERROR MSG * * 



TYPE ERROR 
ON LABEL 
READ MSG 



•LABEL READ 
OPERATION 



• *** . 

SERHLT X 25 

*****H3*»*«****** 
•SHALT DHA1* 



-X* TYPE MSG AND »X * 

•ENTER WAIT LOOP»TYPE READ 
* FOR REPLY *ERROR MSG 



AUTO DUMP 



»..» WHICH OPTION *X. 



WHICH OPTION *X * WHICH OPTION *. 



*«#* 


* 


• * 


•RETRY 


• C5 * 




• * 


X 


,»•#* 


• •*• 


SERLV 


* * 




* 02 « 




* * 




.»*»* 




SERDC 



X 27 

***J4******** 
•WRITE AUTO 0R» 

• OPTION DUMP • 
.X*LABEL AND ERROR*. 

• RECORD ON THE • 
* DUMP TAPE * 



•ERSCN X 30 
»»*««K3*« ******** 

* TYPE OUT THE * 
•LOCATION OF THE» 

* ASTERISKS * 

* IN THE * 

* ERROR RECORD » 
•*»***•****«•»«** 



AUTO DUMP 



*-*-*-«-*-#- 



•TYPE AUTO DUMP * 
•MESSAGE ON THE * 
•CONSOLE PRINTER* 
*•**•»•»**•«**•** 
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* # 

* F4 * 



* » 

* A* * 

* » 



Detailed Description of Operations 



The iocs operations, treated on an over-all basis by 
Chart aa, Chart ab, and Figure 1, are covered on a 
lower level and supplemented by the following block- 
by-block descriptions and detailed charts. Scheduling is 
covered by Charts ba, bb, bc, bd, be, and bf; record 
processing by Charts ca, cb, and ce; open, close, feorl, 
rdlin, and end of reel by Charts da, db, dc, dd, de, df, 
dg, and dh; and the error routines by Charts ea, eb, ec, 
and ed. In these charts, much of file processing depends 
on the file reference table. The reader may find it 
helpful to refer to this table, included as Figure 7 and 
described in the Program Condition Analysis Aids 
section of the manual. 

The reader is again reminded that in a label, the 
convention of two hyphens (--) designates the file 
prefix (e.g., $--full) either generated by iocs or speci- 
fied by the user. One hyphen ( - ) designates the chan- 
nel prefix (e.g., $cs-sfs). The dollar sign c$> substitutes 
for the first four characters in the label, viz., iocs. 



Scheduling 

Channel Schedulers, Including Interrupt 

Block BA01, 00101: A machine interrupt, which 
occurs in priority alert mode when an i/o operation has 
been completed and an interruptable instruction is en- 
countered, causes an automatic branch to core loca- 
tion 00101 and an exit from priority alert mode. At 
location 00101, the B-address register is stored, saving 
the seventh character of the interrupted instruction, 
and control branches to $attn. 

Block BA02, $ATTN: The address at which the in- 
terrupt occurred is decremented by six. This adjusted 
address, which points to the operation code of the 
interrupted instruction, is stored in sintext, block 
ba20. Control branches to scsient, block baos. 

Block BA03, $ENTRY: The normal entrance to the 
channel scheduler from end of macro operations is 
made at $entry. The return linkage is set in sintext, 

block BA20. 

Block BA04: If sentry has been disabled, the chan- 
nels are not available, and control returns directly to 
the i/o request without altering the mode of operation, 
i.e., without going through sintext, which causes entry 
to priority alert mode. Disabling of channel operations 
is caused by clearing a word mark at sentry +8. 



Block BA05, $CS1ENT: The boli determines if chan- 
nel 1 is busy. If it is, control passes to $cs2ent, block 
BM8. For interrupt operation, a busy condition means 
it cannot have been a channel 1 operation which 
caused the interrupt. For normal operation (start 
channels), a busy condition means channel 1 is already 
in operation. 

Block BA06, $CS1PR: Channel 1 is not busy. A 
bopri is executed. If a branch is taken, control goes 
to the file scheduler coding (represented by block 
baio) that makes the status check for the file. The 
linkage to the proper scheduler was set into the bopri 
branch address by scsiret, block BA17 immediately 
after the tape operation was started. 

Block BA07, $CS1SCN: This block represents the 
force switch. If the switch is on, it is a forcing opera- 
tion, and control goes to scsisf, block bai3. 

Block BA08: It is not a forcing operation. The nec- 
essary branch or priority request instructions are exe- 
cuted to determine if there are any other interrupts 
on this channel, e.g., console, real time. If there is 
any priority request, it is served by the appropriate 
routine. 

Block BA09, $CS1S3: This block represents the exit 
from the channel scheduler to the highest priority 
pending switch on the channel. The pending switch 
network is represented by block BA22. 

Block BA10: The status of the i/o operation is 
checked. For a two-area file, the pending switch for 
the file is turned off. Control passes to scsiscn, block 

BA07. 

Block BAH, $CS1SFS: The entrance to the force 
routine, $cs-sfs, sets the return address by storing the 
contents of the B-address register in scs-sfx, block 
BA16, the force exit. 

Block BA12: The force switch, scsiscn (block bao7) 
is set on, i.e., set to branch to scsisf, block BA13. 

Block BA13, $CS1SF: A boli instruction is executed 
to determine if the channel is in use. If it is, the channel 
scheduler enters (or continues) a forcing loop by 
branching to scsipr, block BA06. 

Block BA14: The channel is not busy. A bopri is exe- 
cuted. If the branch is taken, control transfers, via 
block BA06, to the i/o condition check at block baio 
within the file scheduler. If there is no branch, indicat- 
ing that the channel entered is already clear, control 
passes to block bais. 
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Block BA15: The channel is reset to non-forcing by 
setting the force switch, at scsiscn, block BA07, off. 

Block BA16, $CS1SFX: The channel scheduler re- 
turns to the file scheduler whose address was set by 

SCS1SFS, block BAIL 

Block BA17, $CS1RET: At scsiret, the branch ad- 
dress of $csipr, block BA06, is set to the file schedule- 
coding which will make the i/o status check for the 
file for which a tape operation has just been started. 

Block BA18, $CS2ENT: The bols determines if 
channel 2 is busy. If it is, control branches to sintext, 
block BA20. If the channel is not busy, control passes 
to block BA21. For interrupt operation, a busy condi- 
tion means it cannot have a been a channel 2 operation 
which caused the interrupt. For normal operation 
(start channels), a busy condition means channel 2 
is already in operation. 

Block BA19, $CS2RET: At $cs2ret, the branch ad- 
dress of $cs2pr is set to the file scheduler coding which 
will make the i/o status check for the file for which a 
tape operation has just been started. 

Block BA20, $INTEXT: At sintext is the bepa in- 
struction which causes entry into the priority alert 
mode. The three possible types of exits from this block 
are: 

1. The interrupt exit (set at blocks baoi and BA02) 
returns the program to the point at which the 
interrupt occurred. 

2. The normal exit (set at block bao3) is a return 
to the file scheduler as set by sentry. 

3. The bootstrap force exit (set by block bcos or 
BD07) returns control to the file scheduler via the 
force routine which is entered at block BA12 and 
exited at block BA16. 

Block BA21: With the exception of the entrance 
and exit, the logic of the coding is the same for channel 
2 as for channel 1. In most instances, the coding itself, 
except for the beginning of the tags ($cs2 as against 
$csi for channel 1), is also the same. 

Block BA22: The pending switch network is entered 
at the highest-priority pending switch on the channel. 
If no pending switch is on, control passes down the 
network along the pending switch off-branches and 
exits to scs2ent for channel 1 or to sintext for channel 
2. If a pending switch is on, control takes the on-branch 
of that switch (shown as block BC07 or BD09) to start 
an i/o operation. 

One-Area Input File Scheduler 

Block BB01, $-EMTY: Entry from a get macro is 
made at $--emty. The return to the macro is set in 
s--exit, block bbio. Control passes to the channel 
scheduler (represented by block BB03) by a bxpa in- 
struction to cause exit from the priority alert mode. 



Block BB03: The appropriate channel is cleared. 
Block BB04: $--IOA: The read instruction is ex- 
ecuted. 

Block BB05: The i/o status check for the channel is 
executed. The test is a ba if a wrong-length record 
check is being performed. It is a bex if wrong-length 
records are not being checked for and/or if the dtf 
specified variable-length records. If all indicators are 
off, i.e., the read was valid, control passes to block 
BB06; if any indicator is on, control passes to the error 
routine represented by block bbh. 

Block BB06: This coding is included only if blocked 
records wuc specified in the dtf. The area or record 
limits are reset. If wrong-length records and/or check- 
point records are specified for variable-length blocked 
records, a check is made for these records. 

Block BB07, $-TRlG: The bxpa instruction at 
S--TMG is a branch to sentry, the entrance to the chan- 
nel scheduler at block BA03. The pending i/o operation 
of highest priority on each channel is executed after 
checking the last one on the channel, if any. Priority 
alert mode is re-entered. 
Block BBUb. n^ Woek count is incremented by +1. 
Block BB09, $-EXIT: Control returns to the main 
line program address set up at $-emty, block bboi. 

Block BB11: The tape error routine, entered at block 
eaoi, attempts to correct any error resulting from the 
tape read operation. If possible, corrective action is 
taken and control returns to block BB06. If an end-of- 
reel condition is encountered, control branches to the 
end-of-reel routine at block ddoi; if a wrong length 
record is found, control branches to block BB12. 

Block BB12: If checkpoint records are specified, a 
test is made to determine if a checkpoint record has 
been read. Otherwise, control goes immediately to the 
wrong-length record routine supplied by the user. If it 
is determined that this is a checkpoint record, control 
passes to block BB13. 

Block BB13: The checkpoint record is bypassed by 
executing another read instruction. Control returns to 
block BB04 to read the next record. 

Block BB14: The user's wrong length record routine 
determines whether to accept or reject a wrong length 
record. If the record is accepted, control returns to 
block BB06 to process the record. If the record is re- 
jected, control returns to block BB04 to get the next 
record. 

Block BB15: (Only for Form 4 records.) The block 
character count is compared to the number of charac- 
ters read to determine if a wrong-length record has 
been read. If the record read is not as specified, control 
passes to the Form 4 wlr sequence at block BB16. 

Block BB16, $-WLR: This is the Form 4 wlr se- 
quence. The record in question is backspaced to enable 
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a re-read. If a successful read is not completed after 
nine tries, control branches to the user's wrong-length 
record routine. 

One-Area Output File Scheduler 

Block BB21, $-FULL: Entry from a put macro is 
made at $--full. The return to the macro is set in 

$--EXIT. 

Block BB22: The block count is incremented by + 1. 
If the file scheduler is for variable-length, blocked rec- 
ords, a group mark/word mark is set one location be- 
yond the last data character position, and the block 
character count is placed in the first four positions of 
the record. Control passes to the channel scheduler 
(represented by block BB24) by a bxpa instruction to 
cause exit from the priority alert mode. 

Block BB24: The appropriate channel is cleared. 

Block BB25, $-10 A: The write instruction is ex- 
ecuted. 

Block BB26: For a write operation, the i/o channel 
status check is always a ba. If a branch occurs, control 
transfers to block BB31. 

Block BB27: The file scheduler controls are reini- 
tialized with the area limits for a fixed-length record 
or with the record-size limits for a variable-length 
record. 

Block BB28, $-TRIG: The bxpa instruction at 
$--trig is usually a branch to $entry, the entrance to 
the channel scheduler (represented by block BB29 on 
this chart ) . However, it can also be used as a pivot by 
those iocs routines concerned with the file schedulers, 
e.g., end-of-reel and error routines. 

Block BB29: The channel scheduler is entered at 
block bao3, sentry. The pending i/o operation of highest 
priority is executed after checking the last one on the 
channel, if any. Priority alert mode is re-entered. 

Block BB30, $-EXlT: Control returns to the main- 
line program location set by $--full, block BB21, or to 
the close routine as set by $--pads, block bfoi or bfh. 

Block BB31: The tape error routine, entered at block 
eaoi, attempts to correct any error resulting from the 
tape write operation. If possible, corrective action is 
taken and control returns to block BB27. If there is an 
end-of-reel condition, control passes to the routine be- 
ginning at block ddoi. 



Two-Area Input File Scheduler 

Block BC01, $-EMTY: Entry from a get macro is 
made at $--emty. The return to the macro is set in 

S--EXIT, block BC24. 

Block BC02, $-WTG: The pending switch, block 
BC07, for the file is tested. If variable-length, blocked 
records were specified in the dtf and wrong-length 



records are being checked, the wrong-length record 
count is set to zero prior to testing the pending switch. 
If the pending switch is off, the other record area is 
available for processing and a branch is taken to $--pa, 
block BC12. If the pending switch is on, the other area 
is not available and a forced read operation for this 
file must be initiated to make the area available. A 
bxpa, to leave the priority alert mode, is taken to the 
channel scheduler force routine (represented by block 

BC04 ) . 

Block BC04: The channel is set to forcing and is 
cleared. 

Block BC05: The branch address of $intext, block 
BA20, is set with the bootstrap force entry address; it is 
set to go to block BA12. This is to insure the completion 
of the i/o operation to be started. 

Block BC06: A second test of the pending switch is 
made. For the first time through, the switch is off if the 
i/o operation cleared at block bco4 happened to be for 
this file. Otherwise, it is on and the forcing operation 
is continued. For the second time through (bootstrap 
return) after the forcing operation is completed, it is 
always off. 

Block BC07, $-0000N: When the pending switch is 
nop, it is on. When the pending switch is branch, it 
is off. The entrance to the pending switch is either 
from the file scheduler itself, or from the greater 
priority pending switch (n-d immediately prior to this 
one. If there is no pending switch of greater priority 
on this channel, the entrance is from the channel sched- 
uler. If the pending switch is on, control falls through 
to the read operation of the file scheduler. If the pend- 
ing switch is off, it is a branch to the next-lower priority 
pending switch cn+d or if there are no lower priority 
pending switches on the channel, the branch is either 
to $cs2ent or to sintext, for channel 1 and channel 2, 
respectively. 

Block BC08: A test is made to determine which area 
is to be used. 

Blocks BC09, $-IOA, and BC10, $-IOB: These 
two blocks represent the actual read operations for 
this file. Block BC09 reads into area A; block bcio reads 
into area B. 

Block BC11: A test is made to determine if the read 
operation has been successfully started. If the opera- 
tion has been started, control branches to $cs-ret in the 
channel scheduler where the return address to the 
i/o status check is set in $cs-pr, block BA06. If the read 
operation has not been started, the i/o status check 
is made immediately at block BC29. 

Block BC12, $--PA: A test to determine which area 
was used last is made by testing for a word mark on 
the read operation. If a word mark is present, area B 
is indicated, and control passes to $--sa, block bciS. 
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Block BC13: Area A was read into last; therefore 
the switches are changed so that area B will be read 
into next. 

Block BC14: The file scheduler controls are reini- 
tialized with the area or record limits depending upon 
the use of fixed- or variable-length records, respec- 
tively. The address of the first record character is 
placed into $--save. The ending address, $--endd, is 
set with the address of the last character in the input 
record. Control passes to block bcit. 

Block BC15: The read operation is changed to read 
into area A next. 

Block BC16: This is identical with block bch, ex- 
cept that the source of information is the B area limits 
rather than the A area limits. 

Block BC17: The pending switch is set on to indi- 
cate that one of the areas has been used and to request 
the refilling of that area. 

Block BC18: This block is included only when the 
soubce dtf specifies one of the following conditions: 
( 1 ) fixed-length, blocked records using index registers 
and checkpoints, or (2) variable-length, blocked rec- 
ords and checkpoints. If included, this block tests for a 
checkpoint record. If such a record is found, control 
passes to $--byp, block bci9; otherwise, it goes to block 

BC20. 

Block BC19, $-BYP: The checkpoint record sensed 
at block BC18 is bypassed. 

Block BC20, $-TRIG: The bxpa instruction at 
S--TBIG is usually a branch to $entry, the entrance to 
the channel scheduler (represented by block bc21 on 
this chart). It may also be set, for certain exceptional 
conditions, as a branch to the routines concerned with 
processing those conditions. The exceptionals con- 
ditions and the associated processing are: 

End-of-Reel: After the sensing of a tape mark, $--tbig 
is set by the error routine to branch to end-of-reel 
procedures at seoru, block ddoi. 

Prime Operation: The execution of open procedures 
(in an opeh operation, or while opening a new reel 
in a feorl or end-of-reel operation) causes $--trig 
to be set to branch to the linkage, block bc25, to the 
prime routine. 

WLR Operation for Fixed-Length Records: After ten 
additional unsuccessful attempts to read the record 
in question, the error routine sets $--tbig to branch 
to the linkage, block bc25, to the user's wlb routine. 

Block BC21: This block is included only for variable- 
length, blocked records. If a wrong-length record check 
is specified, the check is made at this point. A branch 
to the Form 4 wlr sequence, block bc35, is made if a 
wrong-length record is found. 



Block BC22: If the channel is free, an i/o operation 
is started either because of the pending request for 
this file or for higher-priority file. The priority alert 
mode is re-entered. 

Block BC23: The block count is incremented by +1. 

Block BC24, $-EXIT: The return is to the get 
macro as set by block bcoi. 

Block BC25: The purpose of the coding in this block 
is to reset $--trig to the normal exit, i.e., a bxpa to 
sentry. The two possible exits from this block are ( 1 ) 
to the wrong-length record routine, block BC27, or ( 2 ) 
to the iocs prime routine, block BC26. 

Block BC26: To ensure correct usage as a two-area 
file, a priming of this file is forced. Control passes to 

block BC02. 

Block BC27: A test is made to determine if a check- 
point header record was read. If so, the checkpoint 
record itself is read. Control then returns to $--wtg, 
block BC02, to read a data record into the file. 

Block BC28: The user's wrong-length record routine 
determines if the record should be accepted or rejected. 
If the record is rejected, control returns to $--wtg, 
block BC02. If the record is accepted, control returns to 

S--TBIG, block BC20. 

Block BC29: The i/o channel status check for this 
file is a ba instruction if wrong-length records are being 
checked or a bex instruction if there is no wrong-length 
record check. If it is a bex instruction, the i/o interlock 
has not yet been turned off, unless a branch is taken on 
the particular indicator. Control passes to block BC30 
if an error is sensed; otherwise, it goes to block BC31. 

Block BC30: The tape error routine is entered at 
block eaoi. An attempt is made to correct any error 
or s--trig is set to indicate and end-of-file or wrong- 
length record condition. 

Block BC31: A branch any to self plus one to prevent 
the machine i/o interlock is executed if wrong-length 
records were not checked for. 

Block BC32: If there are variable-length, blocked 
records and wrong-length records are to be checked 
for, the E or F register is stored to enable the wrong- 
length check. 

Block BC33: The pending switch is turned off. 

Block BC34: The channel scheduler is entered at 
BA07. Any pending i/o on this channel is started or the 
channel is cleared and control returns to the file sched- 
uler. There are two possible returns. One is a return to 
the main program through sintext, block BA20, if this 
file scheduler was entered from an interrupt. The other 
returns is to the file scheduler at block bcos via sintext 
and the bootstrap force routine. 
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Block BC35, $--WLR: This is the Form 4 wlr se- 
quence. The record in question is backspaced to enable 
a re-read. If a successful read is not completed after 
nine tries, control branches to the user's wrong-length 
record routine, block BC28. 



Two-Area Output File Scheduler 

Block BD01, $-FULL: Entry from a put macro is 
made at $--full when the current record area has been 
filled with logical records. The return to the macro is 
set in $--exit, block bdi9. 

Block BD02: The block count, accumulated in 
s--tbc, is increased by 1. 

Block BD03: This block is pertinent only for a 
variable-length, blocked record file. A group mark/ 
word mark is placed at one location beyond that of the 
last character of the blocked record. The block charac- 
ter count is placed in the first four positions of the 
record to enable the correct handling of this record. 

Block BD04, $-WTG: The pending switch, block 
bdo9, is tested. If the pending switch is off, the other 
record area is available for processing (filling) and a 
branch is taken to $--pa, block bdio. If the pending 
switch is on, the other area is not available. A forced 
write operation for this file must be initiated to make 
the area available. A bxpa, to leave the priority alert 
mode, is taken to the channel force routine (repre- 
sented by block bdo6 ) . 

Block BD06: The channel is set to forcing and is 
cleared. 

Block BD07: The branch address of sintext, block 
BA20, is set with the bootstrap force entry address, i.e., 
set to go to block bai2. This is to insure the completion 
of the i/o operation to be started. 

Block BD08: A second test of the pending switch is 
made. For the first time through, it is off if the i/o 
operation cleared at block bdo6 happened to be for this 
file. Otherwise, it is on and the forcing operation is 
continued. For the second time through (bootstrap 
return) after the forcing operation is completed, it is 
always off. 

Block BD09, $-0000N: When the pending switch is 
at nop, it is considered to be on. When the pending 
switch is a branch instruction, it is considered off. The 
entrance to the pending switch is either from the file 
scheduler itself, or from the greater priority pending 
switch (N-D immediately prior to this one. If there is 
no pending switch of greater priority on this channel, 
the entrance is from the channel scheduler. If the pend- 
ing switch is on, control falls through to the write op- 
eration of the file scheduler. If the pending switch is 
off, it is a branch to the next-lower priority pending 
switch (N+i) or if there are no lower priority pending 



switches on the channel, the branch is either to $cs2ent 
or to sintext, for channel 1 and channel 2 respectively. 

Block BDIO, $--PA: The area last used is determined 
by testing for a word mark. If area B was last used, con- 
trol passes to $--sa, block bdi3; otherwise, it goes to 
block BDll. 

Block BDll: Area A was written from last; therefore, 
the switches are changed so that area B will be written 
from next. 

Block BD12: The file scheduler controls are reinitial- 
ized with the area or record limits depending upon 
the use of fixed- or variable-length records. The address 
of the first record character is placed into $--save. 
The ending address, $--endd, is set with the address 
of the last character in the record. Control passes to 

block BD15. 

Blocks BD13, $-SA, and BD14: These blocks are 
essentially the same as blocks bdh and bdi2 except that 
the change is from utilization of area B to area A and 
the limits set are those for area B. 

Block BD15: The pending switch is set on so as to 
indicate that one of the areas has been used and to 
request the writing of it. 

Block BD16, $--TRIG: The bxpa instruction at 
s--trig is usually a branch to sentry, block bdit. It 
may also be set, for certain exceptional conditions, as 
a branch to those routines concerned with processing 
those conditions. The exceptional conditions and the 
associated processing are discussed below: 

End of Reel: After a reflective spot is sensed, $--trig 
is set by the error routine as a branch to $eoru, block 

DD01. 

CLOSE and FEORL Operations: $--trig is set by 
block deii in the close procedures to return to those 
procedures after writing the final block of records 
(if any). 

Block BD17: If the channel is free, an i/o operation 
is started either because of the pending request for 
this file or for a higher-priority file. The priority alert 
mode is re-entered. 

Block BD18: This block is applicable only for vari- 
able-length, blocked records. The block character 
count is set to zero. 

Block BD19, $--EXIT: Control returns to the put 
macro as set by block bdoi. 

Block BD21: The area from which data are to be 
written is determined. For area A, control passes to 
block BD22; for area B, it goes to block bd23. 

Block BD22, $-IOA, and Block BD23, $-IOB: 
These two blocks represent the actual write operations 
for the file. Block bd22 writes from area A; block BD23 
writes from area B. 
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Block BD24: A test is made to determine if the write 
operation has been successfully started. If the opera- 
tion has been started, control branches to $cs-ret in 
the channel scheduler where the return address to 
the i/o status check is set in $cs-pr, block bao6. If the 
read operation has not been started, the i/o status check 
is made immediately, block bd25. 

Block BD25: For a write operation, the i/o channel 
status check is always a ba. If a branch occurs, control 
transfers to block bd26. If no branch occurs, control 
passes to block BD27. 

Block BD26: This block represents the error routine. 
If the error is correctable, it is rectified and control is 
returned to block bd27. An attempt is made to correct 
any error or $— trig is set to indicate an end-of-file or 
wrong-length record condition. 

Block BD27: The pending switch is set off. 

Block BD28: This block represents the channel 
scheduler, entered at BA07. Any pending i/o on this 
channel is started or the channel is cleared and control 
returns to the file scheduler. There are two possible 
exits. One is a return to the main program via sintext, 
block BA20, if this file scheduler was entered from an 
interrupt. If this file scheduler was in a forcing posi- 
tion, the other return is to the file scheduler at block 
BD07 via sintext and the bootstrap force routine. 



Tape File Initialization Sequence 

The tape file initialization routines are described in 
a logical rather than a coding fashion and are based 
on a pseudo decision table containing in its condition 
stub entries from the dtf for the file. The number of 
areas used, the record format, and, for input files, 
whether wrong-length records are checked, define the 
coding blocks required for initialization. All possible 
coding blocks are shown in an in-line, logical sequence, 
but all blocks will not be included for any given file. 
Blocks BE06 through BE09 and blocks bei7 through 
bei9 will not be generated for a file unless the diocs 
contains a chanchange entry; this condition overrides 
any specifications for block inclusion which are derived 
from the decision table. 



INPUT FILE SCHEDULER INITIALIZATION SEQUENCE 

Block BE01, $-INIT, and Block BE02: The opera- 
tion code and the X-control field (from $--act+6, the 
base tape identification for the file) are moved into 
$--ioa+6 (and $--iob+6), the area A (area B) read 
instruction(s) for the file. 

Block BE03: (Included only for blocked records.) 
$--save is loaded with the address of the last location 
of area A. 



Block BE04: ( Included only for a one-area, variable- 
length, blocked file.) $--endd is set to zero. This field 
will contain the block character count for each tape 
record. 

Block BE05: (Included only for two-area files.) 
$--trig, block BC20, is set to enter the priming routine, 
i.e., to branch to $--prim. 

Block BE06: The branch address of $-sfx, the file 
scheduler linkage to the channel scheduler force rou- 
tine, is reset to refer to the proper channel. 

Block BE07: (Included only for two-area files) The 
i/o status check, block BC29, is reset. It may now require 
a different channel operation code. The file scheduler 
return to the channel scheduler ($cs-ret, block BA17 
or BA19), is reset to the proper channel. 

Block BE08: (Included only for one-area, blocked 
files ) : The 1/0 status check is reset as it may now re- 
quire a different channel operation code. 

Block BE09 (Included only when the Form 4 wlr 
routine is used): The d-modifier of the store E- (F-) 
address register instruction is reset so as to store the 
proper register. 

Block BE10: Control returns to the common initial- 
ization sequence beginning at sentab, block dbh. 



output file initialization sequence 

Block BE11, $- -INIT, and Block BE12: The operation 
code and the X-control field (from $--act+6, the base 
tape identification for the file) are moved into s--ioa+6 
(and $--iob+6), the area A (area B) write instruc- 
tion^) for the file. 

Block BE13: $--save is loaded with the address of 
the first character of area A. 

Block BE14: ( Included only for a variable, blocked 
file.) $--save is loaded with the address of the block 
character count. The record length is set to plus zero. 

Block BE15: (Included only for blocked, fixed-length 
records. ) $--endd is loaded with the address of the last 
character of area A. 

Block BE16: (Included only for two-area files.) 
s-trig, block BD16, is set to branch to sentry, block 

BA03. 

Block BE17: The branch address of $--sfx, the file 
scheduler linkage to the channel scheduler force rou- 
tine, is reset to refer to the proper channel. 

Block BE18: (Included only for two-area files.) The 
1/0 status check, block BD25, is reset. It may now require 
a different channel operation code. The file scheduler 
return to the channel scheduler ( $cs-ret at block BA17 
or BA19 ) is also reset to the proper channel. 

Block BE19: (Included only for one-area, blocked 
files. ) The 1/0 status check is reset in a fashion similar 
to that of block beo7. 
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Block BE20: Control returns to the common initial- 
ization sequence beginning at $entab, block dbh. 



Padding Routines 

PADDING ROUTINE FOR A FILE USING AN INDEX REGISTER 

Block BF01, $--PADS: Entry is from the relse 
macro or from the close procedures; s~exit (the exit 
from the associated file scheduler) is set to return to 
the proper routine. 

Block BF02: A test is made to determine whether the 
output block requires padding. If no padding is re- 
quired (i.e., the area index register points to the end 
of the area), control returns to the proper routine via 
the $--exit address set upon entering. If the file needs 
padding, control passes to $--plb2, block bf03. 

Block BF03, $~PLB2: If the index register is point- 
ing at a record mark ( end of record ) , control branches 

to block BF06. 

Block BF04: The area end address is compared to 
the address in the index register to determine if ad- 
ditional padding is required. If no more padding is 
needed, the record is ready to be written, and control 
branches to block BF07. If more padding is needed, con- 
trol passes to block bfos. 

Block BF05: The padding character is moved to the 
address specified by the index register. 

Block BF06, $-PTRC or $-PLBl: The index regis- 
ter is increased by 1. Control branches to block BF03. 

Block BF07: This block represents the file scheduler 
entered at $--full+7, blocks BB22 or BD03. After the 
padded block is written, control returns to the proper 
routine as set by block bfoi. 



PADDING ROUTINE FOR A FILE NOT USING AN INDEX REGISTER 

Block BF11, $-PADS: Entry is from the relse 
macro or from the close procedures; $--exit (the exit 
from the associated file scheduler) is loaded with the 
return address. 

Block BF12: This is a test to determine if the output 
block needs padding. This is accomplished by compar- 
ing the address of the last character put into the output 
area to the address which defines the end of the area. 
If no padding is needed, control returns to the proper 
routine via $--exit. If padding is required, control 
passes to block bfi3. 

Block BF13: A word mark is moved to the high-order 
position of $--psve. This sets up an area where the con- 
tents of xi5 can be saved. 

Block BF14: The contents of xi5 are stored in 
s--psve. Index register 15 is then loaded with the con- 
tents of $- -SAVE. 

Block BF15, $--PLB2: If xi5 is pointing at a record 
mark (end of record), control branches to block bfis. 

Block BF16: The contents of xi5 are compared to 
the final address of the area to determine if the file is 
ready to be written. If it is, control branches to block 

BF19. 

Block BF17: The padding character is moved to the 
address specified by index register 15. 

Block BF18, $-PTRC or $-PLBl: The contents of 
xi5 are increased by 1. Control returns to block bfis. 

Block BF19: The contents of $--psve are restored to 

X15. 

Block BF20: This block represents the file scheduler 
entered at $-full+7, block BB22 or bdo2. After the 
padded block is written, control returns to the proper 
routine as set by block bfh. 
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Record Processing and Little Macros 

The record processing macros for tape files with speci- 
fied dtf's are get, put, and relse shown on Chart ca. 
The get macro, sometimes referred to as a deblocking 
routine, makes the next logical record in a block avail- 
able for processing; a put adds the next logical record 
to a block. The many formats for get and put are 
covered. The record processing macros for unit record 
files with specified dtf's are shown on Chart cb. The 
little macros rtape, wtape, consl, btlbl, wtlbl, stack, 
skip, iobsp, iorwd, ioRwu, iowtm, iosys, and pstac are 
shown on Chart cc. 

PUT, GET, and RELSE Macros 

The put, get, and relse macros are charted logically, 
independent of generated coding. In other words, the 
blocks do not represent actual coding but represent the 
logic behind the coding. The description indicates 
some of the possibilities that can be coded. The put 
and get macros, in particular, vary from file to file, de- 
pendent upon the source dtf specifications and format 
of the put or get being used. For example, if a work 
area were put to a file, the coding is different than if a 
file were simply put or if a different file were put to 
that file. The coding also differs if the file is blocked 
or unblocked, variable or fixed, and uses one or two 
areas. Similarly, for the get macro the coding is dif- 
ferent depending upon format and the usage of index 
words, blocked records, or variable records. The relse 
macro usually causes only a few instructions to be 
generated. Essentially, it is the replacement of the cur- 
rent logical record address with the ending (input) or 
the writing of the record ( output ) . 

PUT MACRO 

Block CA01: This is a logical in-line connection to 
the user's coding. 

Block CA02: The initialization for a move may be 
the moving of the address from $--save to an index 
register, or to the actual move instruction. It is not 
generated if the move does not need initialization, e.g., 
if both files use index words and file 1 is being put to 
file 2. 

Block CA03: The actual movement of the record 
may not be a physical movement of the data but a 
movement of addresses for the next logical record. 

Block CA04: In the updating for the next put macro, 
the addresses that will be used for the file being put 
are increased to reflect the correct location. In other 
words, $--save is increased by the length of the record. 

Block CA05: If hash totals have been specified, the 
contents of the field designed for hash total is added 

to $--THT. 



Block CA06: If record counts have been specified, 
a +1 is added to $--trc. 

Block CA07: $--save is tested to determine if the 
current i/o area is available. If it is, control returns to 
the user's program. Otherwise, the area is full and the 
file scheduler is entered at $--full (represented by 

block CA08). 

Block CA08: (Two-area.) After the other area is made 
available to the macro ( by a forced write operation if 
necessary), the file is set pending to record the need to 
write the full area. (One-area.) The area is written to 
make it available again. 

Block CA09: This represents the logical in-line con- 
nection with the user's coding. 

get macro 

Block CA11: This represents the logical in-line con- 
nection with the user's coding. 

Block CA12: A test is made to determine if the cur- 
rent i/o area is available. If it is, control branches to 
block CA14. Otherwise, the area is empty, and the file 
scheduler is entered at $--emty (represented by block 

CA13). 

Block CA13: (Two-area.) After the other area is made 
available to the macro (by a forced read operation if 
necessary), the file is set pending to record the need to 
read into the empty area. (One-area.) The area is read 
into to make it available again. 

Block CAM: The initialization for a move may be 
the moving of the address from s--save to an index 
register, or to the actual move instruction. 

Block CA15: The actual movement of the record 
may not be a physical movement of the data but a 
movement of addresses for the next logical record. 

Block CA16: In the updating for the next get macro, 
the addresses that will be used for the file are increased 
to reflect the correct location. In other words, $--save 
is increased by the length of the record. 

Block CA17: Hash totals, if they have been specified, 
are accumulated in $— tht. 

Block CA18: If record counts are specified, a + 1 is 
I added to $--trc. 

Block CAW: This is the in-line connection with the 
user's coding. 

relse macro, input 

Block CA21: This represents the in-line connection 
with the user's program. 

Block CA22: The address of the logical record being 
operated upon is replaced by the address of the last 
character in the area. 

Block CA23: This is the logical connection to the 
user's program. 
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RELSE MACRO, OUTPUT 

Block CA24: This represents the in-line connection 
with the user's program. 

Block CA25: Control transfers to the padding rou- 
tine for this file. If the block requires padding, it is 
padded before being written. 

Block CA26: This represents the in-line connection 
with the user's program. 

Unit Record GET, PUT, and Close Operations 

The function of unit record file schedulers, when used 
with get/put macros, is to execute and check the i/o 
operation requested by the macro, keep an accumula- 
tive count of the number of records, and, if applicable, 
provide linkage to the user's end of file routine. 

An additional function of the punch file scheduler, 
when entered during a close macro, is to punch a blank 
card so that all the punched data cards are in the 
stacker when the punch file is closed. 

A detailed treatment of the file schedulers and the 
get/put macros follows. 

GET CARD MACRO AND SCHEDULER 

Block CB01: If the get macro specifies an end-of- 
file address for the card reader file, the specified 
eofaddr address is placed in the I-address of the file 
scheduler's end-of-file test instruction (block CB07). 
Note that this replaces the dtf eofaddr if one had been 
specified. (Refer to the description of block CB07.) 

Block CB02, $-EMTY: This is the labeled entry to 
the file scheduler. The contents of the B-address regis- 
ter are stored in the scheduler's exit, $~exit (block 
CB12). 

Block CB03, $SFX: A branch and exit priority alert 
mode to $cs-sfs, the force entry to the channel sched- 
uler, is executed. The channel for which the get macro 
was issued is forced clear of all unchecked 1/0 opera- 
tions. This is done to prevent an 1/0 interlock when the 
card read instruction is executed at $— ioa ( block cb<m ) . 

Block CB04, $-IOA: The card read instruction is 
executed. If the program uses overlap, the instruction 
is executed in overlap mode. This is done to preserve 
overlap mode of operation if an overlapped operation 
is in progress on the other channel. If the instruction 
were not given in overlap mode, it would not be exe- 
cuted until the 1/0 operation on the other channel is 
completed. 

Block CB05: A test is made to determine if any 1/0 
channel status indicators are on. If they are all off, 
control goes to block cb07. If any are on, control passes 
to the unit record error routine ( represented by block 
CB06). 

Block CB06: The reason for entry to the error routine 
is determined and appropriate action is taken. Oper- 



ator action may be required. Control returns to block 

CB07. 

Blocks CB07, CB08, and CB09: A test is made to 
determine if the condition 1/0 channel status indicator 
is on. If it is, it indicates an end-of-file condition on the 
card reader and control is sent to one of three places. 

1. eofaddr specified in the last get read, eofaddr 
macro used for this file. 

2. eofaddr specified in the dtf for this file if condi- 
tion 1 does not apply. 

3. s—ioa in the file scheduler if neither conditions 1 
nor 2 apply. The card read instruction is re- 
executed (block CB04). In this case, it is Nop'ed 
and the not ready indicator is turned on. The 
error routine is entered (block CB06) and a not 
ready message is typed out indicating that the 
reader is out of cards. The program enters a wait 
loop for operator action. If more cards are placed 
in the reader, the program continues. 

Block CB10, $-TRIG: A branch and exit priority 
alert mode to sentry is executed. There is no signifi- 
cance in the fact that the instruction is a bxpa. It is 
used as an unconditional branch. 1/0 operations are 
started on the channels, if possible, and priority alert 
mode is entered. 

Block CB11: The card count, s— tbc, is incremented 
by +1. 

Block CB12, $-EXIT: Control exits from the file 
scheduler to the location set by block CB02. 

Blocks CB13 and CB14: If the macro is of the for- 
mat, get read to work, the contents of the dtf speci- 
fied 1/0 area for this file are moved to the work area 
specified by the macro. Control returns to the user's 
program. 

unit record put macro and schedulers 

Block CB21: Before entering the file scheduler on a 
put workarea to file macro, the contents of the macro 
specified workarea are moved to the DTF-specified 1/0 
area of the printer or punch file. If the macro is of the 
put filea to fileb format, the current logical record of 
filea is moved to the DTF-specified 1/0 area of the 
printer or punch file. 

Block CB22, $-FULL: The contents of the B-address 
register are stored in the I-address of a branch at $-exit 
(block CB29). This initializes the file scheduler's exit. 

Block CB23: The record count, $~tbc, is incre- 
mented by +1. 

Block CB24, $-SFX: A branch and exit priority alert 
mode to $cs-sfs, the force entry to the channel sched- 
uler, is executed. The channel for which the put macro 
was issued is forced clear of all unchecked 1/0 opera- 
tions. This is done to prevent an 1/0 interlock when 
the 1/0 instruction is executed at $~ioa (block CB25). 
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Block CB25, $~IOA: A punch a card or write a line 
instruction, depending on the file type, is executed. 
The data punched or printed is contained in the file's 
DTF-specified i/o area. If the program uses overlap, the 
instruction is executed in overlap mode. 

Block CB26: A test is made to determine if any i/o 
channel status indicators are on. If they are all off, con- 
trol goes to $~trig ( block cb28 ) . If any indicators are 
on, control passes to the unit record error routine ( rep- 
resented by block CB27 ) . 

Block CB27: The reason for entry to the error rou- 
tine is determined and appropriate action is taken. 
Operator action may be required. Control passes to 

block CB28. 

Block CB28, $-TRIG: A branch and exit priority 
alert mode to sentry is executed. There is no signifi- 
cance in the fact that the instruction is a bxpa. It is 
used as an unconditional branch, i/o operations are 
started on the channels if possible and priority alert 
mode is entered. 

Block CB29, $-EXIT: Control exits from the file 
scheduler to the location set by block CB22. 

CLOSE PUNCH SEQUENCE 

Block CB31, $-ACT + ll: This block is entered from 
the close sequence for a punch file. The high-order 
address of the punch file's i/o area is placed in the 
A-address register by executing a dummy bce instruc- 
tion. The contents of the A-address register are stored 
in the B-address of a move instruction executed in 

block CB32. 

Block CB32: A blank character is moved to the 
address initialized by block CB31. The B-address of the 
move just executed is initialized to address the next 
character of the i/o area by storing the contents of the 
B-address register, after the move is executed, in the 
B-address of the move. 

Block CB33: A test is made to determine if the ad- 
dress specified by the B-address of the move instruc- 
tion executed in block CB32 contains group mark/word 
mark. If it does not, it indicates the end of the i/o area 
has not been reached and control goes to block CB32 to 
blank another location. When the end of the area is 
reached, control passes to block CB34. 

Block CB34: A blank card is punched. 

Block CB35: A test is made to determine if any i/o 
channel status indicators are on. If they are all off, 
control goes to sexitru (Chart df, block 11) to con- 
tinue the close sequence. If any indicator is on, con- 
trol passes to the unit record error routine (repre- 
sented by block CB36). 

Block CB36: The reason for entry to the error routine 
is determined and appropriate action is taken. Oper- 
ator action may be required. Control then passes to 



sexitru (Chart df, block 11) to continue the close 
sequence. 

Little Macros 

iocs must provide i/o control other than that afforded 
by the open, close, get, and put macros. This addi- 
tional control is available through the use of the iocs 
little macros. 

These macros enable the programmer to position 
tape on a unit, to select the pocket into which cards 
are stacked on card read or punch operations, to posi- 
tion paper on the printer through carriage control, to 
use the console printer, to read or write records on 
any tape unit, and to read and write tape labels. 

Some restrictions in the use of the little macros 
follow: 

The stack little macro may only be used to select 
cards into specified pockets when the file for which it 
is issued has a dtf cardpoc 9 entry. 

The rtape, wtape, and iobsp little macros do not 
adjust block counts if used for DTF-specified files. 

No little macros pertaining to tape may be used be- 
fore the first open macro if there is no diocs priority 
entry. The reason they may not be used is that the 
tape error routine is not yet in core storage. The error 
routine overlays the priority assignment routine during 
the first open. 

A detailed description of how these little macros are 
executed is presented in the text for Chart cc, which 
follows. 

RTAPE (READ TAPE) AND WTAPE (WRITE TAPE) 

Block CC01: If the program uses the overlap special 
feature, a bxpa to $cs-sfs is executed. The channel for 
which the macro was issued is cleared of unchecked 
i/o operations. This block does not exist for the non- 
overlap situation. 

Block CC02: If parameter 4 ( fourth operand of the 
macro) is specified, a word mark is set in the core 
storage location labeled by parameter 4. This is a 
switch used by iocs to indicate to the programmer the 
availability of the input record (rtape) or the output 
area (wtape). The branch instruction at sintext is set 
to return control to the user's program. Parameter 4 is 
specified only for overlapped operations. 

Block CC03: The format of the i/o instruction is 
determined by parameters 1, 2, and 3. Parameter 1 
specifies the manner (e.g., write tape with word 
marks) in which the operation is executed, parameter 
2 specifies the channel and unit, and parameter 3 speci- 
fies the label of the core storage area used. These 
parameters must be specified for the macro. The i/o 
instruction is executed. If the operation is read tape 
and the program does not use overlap, the contents 
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of the B-address register are stored in an area labeled 
sernois at the completion of the read. This initializes 
the tape error routine's noise length record coding. 

Block CC04: If parameter 4 is specified in the macro, 
it indicates that the operation is to be overlapped and 
a branch on overlap instruction is executed. If the oper- 
tion started successfully, control goes to $cs-ret ( block 
coos). If not, control goes to block CC06 to determine 
the reason for failure. This block does not exist if 
parameter 4 is not specified. 

Block CC05: The branch at $cs-pr, in the appropri- 
ate channel scheduler, is set to go to block CC06. If 
applicable, channel 2 operation is started and control 
returns to the user's program in priority alert mode via 
sintext (set by block CC02). Upon completion of the 
tape operation, control returns to block CC06 via $cs-pr. 

Block CC06: The tape operation is checked by a 
bex instruction. The d-modifier of the instruction is 7 
if parameter 5 is specified. Otherwise, it is a tape mark. 
Parameter 5 indicates that the user wishes control to 
go to his end-of-file/reel routine if the i/o condition 
channel status indicator is on as a result of the tape 
operation. Note that wrong length records are not 
checked. However, iocs provides the user with infor- 
mation from which he can compute record length if 
parameter 6 is specified. 

Block CC07: The tape error routine corrects the 
operation if possible and passes control block ccos. 
Operator action may be required. 

Block CC08: If parameter 6 is specified, it indicates 
the user wishes iocs to store the contents of the E- 
( channel 1) or F-( channel 2) address register in an 
area labeled by parameter 6. An ser or sfr instruction 
is executed to accomplish the store operation. This 
block only applies to rtape macros. 

Block CC09: If parameter 5 is specified, the user 
wishes control to go to his end-of-file/reel coding on 
end-of-file or end-of-reel conditions. A bef instruction, 
to the user's routine, is executed. 

Block CC10: A branch any to itself +1 is executed 
to satisfy the i/o channel status test requirements. Con- 
trol goes to one of three places: 

1. Parameter 4 is specified block ecu 

2. Not overlap block cci3 

3. Overlap, not parameter 4 block cci4 

Block CC11: The word mark in the core location 
specified by parameter 4 is cleared, indicating to the 
user the availability of the input record crtape) or 
output area cwtapej for processing. 

Block CC12: After channel servicing is completed, 
control returns to the place of interrupt via sintext. 
Note that if control dropped through the bol instruc- 
tion at block CC04, no interrupt has occurred and 



sintext is still set to go to the user's program. Control 
leaves this block in priority alert mode. 

Block CC13: If parameter 6 is specified, the contents 
of sernois ( set by block CC03 ) are moved to the area 
labeled by parameter 6. The user may use this for 
wrong-length-record checking. 

Block CC14: i/o operations are started on the chan- 
nels, if possible, and priority alert mode is restored 
by the execution of the bepa instruction at sintext. 
The branch at sintext, set by block cco2, returns con- 
trol to the user's program. 

CONSL (CONSOLE OPERATION) 

Block CC21: If a channel 1 scheduler exists, the 
channel must be cleared of i/o operations before the 
console printer is used. A bxpa to scsisfs is executed 
and channel 1 is cleared of all unchecked operations. 

Block CC22: The i/o operation specified by param- 
eters 1 and 2 of the macro is executed. Parameter 1 
indicates the manner (e.g., read with word marks) 
in which the console operation is to be performed and 
parameter 2 is the label of the area in core storage to 
be used. 

Block CC23: A test is made to determine if any i/o 
channel status indicators are on. If all indicators are 
off, control goes to block CC25. If any indicators are on, 
control passes to the console printer error routine ( rep- 
resented by block CC24 ) . 

Block CC24: The console printer error routine de- 
termines if the busy, data check, i/o condition, or the 
no-transfer indicators are on. If any are on, the opera- 
tion must be retried and control returns to block CC22. 

Block CC25: If the program uses the overlap feature, 
control goes to sentry, i/o operations are started on 
the channels, if possible, and control returns to the 
user in priority alert mode via the bepa instruction 
at sintext. This block is bypassed if the assembly is 
non-overlap. 

other little macros 

Other little macros are: 

rtlbl ( Read Tape Label ) 

stack ( Select Stacker and Feed ) 

iobsp ( i/o Backspace ) 

iorwu ( i/o Rewind and Unload ) 

wtlbl ( Write Tape Label) 

skip ( Skip Carriage ) 

iorwd ( i/o Rewind ) 

iowtm ( i/o Write Tape Mark ) 

Block CC31: If the program uses the overlap feature, 
a bxpa to $cs-sfs is executed to clear the appropriate 
channel of unchecked i/o operations. 

Block CC32: The i/o instruction, specified by the 
macro parameters, is executed. If the instruction is a 
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rtlbl in a non-overlap program, the contents of the 
B-address register are stored in sernois at the comple- 
tion of the read operation. This initializes the tape 
error routine's noise record coding. 

Block CC33: A bex instruction is executed to check 
the i/o operation. The d-modifier of the instruction is 
7 for label operations. It is a group mark for all others. 
Wrong-length records and end-of-file/reel conditions 
are not checked on label operations. If none of the 
indicators tested are on, control goes to block CC35. If 
any indicator tested is on, control passes to the ap- 
propriate error routine ( represented by block CC34 ) . 

Block CC34: The appropriate error routine (tape or 
unit record) corrects the operation if possible and 
passes control to block CC35. Operator action may be 
required. 

Block CC35: This block represents a nop in the 
coding of a rtlbl macro. It is used by the tape error 
routine to determine if the operation which caused 
entry to it was a label read. 

Block CC36: If the macro was a label operation, a 
branch any to the next sequential instruction is exe- 
cuted to satisfy the i/o channel status test requirements. 

Block CC37: If the program uses the overlap feature, 
control goes to sentry to start channel operations, if 
possible. Control returns to the user's program in 
priority alert mode via a bepa at sintext. 



IOSYS FORCE (CLEAR CHANNELS) 

Block CC41: A bxpa to scsisfs is executed if the 
operand is force, or force with 1 specified as the sec- 
ond or third parameter. Channel 1 is cleared of 
unchecked i/o operations. This block does not exist 
if there is no channel-1 scheduler. 

Block CC42: A bxpa to $cs2sfs is executed if the 
operand is force, or force with 2 specified as the 
second or third parameter. Channel 2 is cleared of 
unchecked i/o operations. This block does not exist if 
there is no channel-2 scheduler. Control returns to the 
user's program. 

IOSYS RESUME (START CHANNELS) 

Block CC51: If the program uses the overlap feature, 
a bxpa to sentry is executed. Channel operations are 
started, if possible. Control returns to the user's pro- 
gram in priority alert mode via the bepa instruction 
at sintext. 

PSTAC (SELECT PUNCH STACKER) 

Block CC61: The i/o instruction in the file scheduler 
specified by parameter 2 is set to stack cards in the 
pocket specified by parameter 1. This is accomplished 
by an instruction which moves parameter 1 to s--ioa + 3, 
where --is parameter 2. 
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R E L S £ 
I NPUT 
A5**» 



CA 



* INITIALIZE * 

« FOR * 

• MOVE * 

« « 



B3 * * 

* • 

TEST EMPTY 



13 
***<»B4********** 
*F.S. BCA1/BBB1* 

X» READ * 

* TAPE » 

* RECORD * 



X 22 

»***»B5********** 

» REPLACE « 

* CURRENT » 

# ADDRESS WITH * 
» ENDING * 
» ADDRESS * 



.NOT EMPTV 



» 

» MOVE 
* THE 
» RECORD 

* 



# 

INITIALIZE » 

FOR » 

MOVE » 

* 



*#<**D1****** 
# 

* UPDATE 

* FOR NEXT 

* PUT 
* 



•»**»D3*#«******* 

* * 
» MOVE * 

* THE * 

* RECORD » 

* * 



OUTPUT 
D5#»* 



* ACCUMULATE 

* HASH 

* TOTALS 



* * 

* UPDATE * 

* FOR NEXT * 
« GET * 



« IF NECESSARY » 

* PAD REMAINING * 

* RECORDS •* 



* « 

* ACCUMULATE * 

* RECORD « 

* COUNT * 



»****F3********** 

* * 

* ACCUMULATE * 

* HASH » 
» TOTALS * 



TEST FULL 



•NOT FULL 



WRITE 

TAPE 

RECORD 



» * 

* ACCUMULATE * 

* RECORD » 

* COUNT * 



Chart CA. put, get, and relse Macros 
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CB C 



GET READ. EOFADDR 



SEGMENT OF CLOSE 
PUNCH SEQUENCE 
ENTERED FROM CHART DF 



* SBR IN THE * 
» I-ADDRESS OF * 
•THE BRANCH INST* 

* AT t EXIT * 

* (BLOCK CB12) * 
***************** 



*****B2*»****«»» 

* MOVE MACRO 
•EOFAODR TO THE 

* I-ADDR OF THE 

* BEF INST AT 

* BLOCK CB07 
*#*#*#********** 



X 21 

*#***B3*****»«»»« 
« MOVE CONTENTS * 

* OF WORK OR * 
•FILE-A I/O AREA*. 

* TO PRINT OR * 
"PUNCH I/O AREA * 



I FULL X 22 

***** 84 ********** 

* SBR IN THE * 

* I-AODRESS OF * 
...X*THE BRANCH INST* 

* AT * EXIT * 

* (BLOCK CB29) * 



S — ACT+I1 X 31 
****»B 5* ********* 

* GET STARTING * 

* ADDRESS OF * 

* PUNCH FILE * 

* I/O AREA * 



********* 



******* 



S SFX X 3 

*»***C1********** 
**CS-SFS BAG3/D1* 

* CLEAR CHANNEL * 

* OF UNCHECKED * 
*I/0 OPERATIONS * 

**»********»****# 



*****C4********** 

* ADD +1 TO THE * 

* CARO OR LINE * 
•COUNT AT * — TBC* 



X 32 
*****C 5* ********* 

* MOVE A BLANK * 
*TO THE I/O AREA* 

X*AND INITIALIZE * 

* TO BLANK THE * 

* NEXT LOCATION * 
***************** 



EXECUTE 
CARD READ 
INSTRUCTION 



S SFX X 24 

*****D4***« ****** 
*»CS-SFS BAG3/D1* 

*—*—*—*—*—*—*—*—* 

* CLEAR CHANNEL * 

* OF UNCHECKED * 
•I/O OPERATIONS * 

***************** 



. . *END OF I/O AREA* 



El * * 05 *****E2********** 

* * *SURERR EDAl* 

* * YES *-*_*_*_#-*-*-*-* 

* BRANCH ANY * X* UNIT RECORD * 

* * * ERROR ROUTINE * 

* * * * 
* * ***************** 

.NO '* 

• X... 

X * 

Fl * * 07 F2 * 08 

* * YES *EOFADnR IN * 

* END-OF-FILE *..... ...X* MACRO EITHER * 

* * * PRIOR OR * 

* * * NOW * 



* EOFADDR * 
.X* SPECIFIED IN 

* DTF ENTRY * 



***£4** ****** 

* * 

* EXECUTE * 

•PRINT OR PUNCH * 

•I/O INSTRUCTION* 



BRANCH ANY 



***E5******** 

•EXECUTE A CARD 
* PUNCH INST 
*< PUNCH A BLANK 
* CARD) * 

************* 



F5 * * 

» » 

BRANCH ANY 



* TR I G X 10 

*****G1 ********** 
**ENTRY 8AA3* 
*—»—*—*—*—»—*—*—» 
* SERVICE * 
•CHANNELS. ENTER* 
•PRIORITY ALERT • 
***************** 



****•*»•***••• 



***************** 



* ADD +1 TO THE 

* CARD COUNT AT 

* * TBC 

* 
**************** 



-TRIG X 28 
»***»H4 ********** 
•SENTRY BAA3* 
*—*-*—*—*—«—*->•—* 
* SERVICE * 
•CHANNELS. ENTER* 
•PRIORITY ALERT » 
***************** 



***** 

*DF * 

* B3* 

* * 



****J1********** 

EXIT TO THE * 
LOCATION SET * 
BY BLOCK CB02 * 



* EXIT TO 

* LOCATION SET 

* BY BLOCK CB22 

**************** 



* READ TO WGRK 



14 
*****K2********** 
« MOVE CONTENTS • 
•OF READER FILE * 
X*I/0 AREA TO THE* 
•MACRO SPECIFIED* 
* WORKAREA * 
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RTAPE. WTAPE 



P = PARAMETER 



RTLBL.WTLBL 
IOBSP.IOWTM 
IORWD. IORWU 
STACK, SKIP 
A4**» 



IOSYS-FORCE 



cc 



FORCE CHANNEL * 

CLEAR OF * 

UNCHECKED I/O * 

**************** 



•FORCE CHANNEL 1 

* CLEAR OF 

* UNCHECKEO I/O 

**************** 



—*—*—*—*—*—*—*—» 

FORCE CHANNEL * 

CLEAR OF * 

UNCHECKEO I/O * 

ft*************** 



*-*- 



-»-* 



•FORCE CHANNEL 1* 

* CLEAR OF * 

* UNCHECKED I/O * 
***************** 

■ BXPA 



X 02 
*****C1 #».•******# 

*IF P4 IS SPEC, * 

* SET WM IN P4 • 
•AND SET SINTEXT* 
•TO GO TO USERS * 
•PROGRAM AT CCG3* 

***************** 



***C3******** 

* * 

* EXECUTE I/O 
.X* (RCP OR WCP) 

• AS SPEC BY PI 

* AND P2 • 
************* 



X 32 
***C4******** 

• EXECUTE ♦ 
• THE I/O INST • 
•(IF NON-OVERLAP» 
•LABEL READ SBR * 

• IN SERNOIS) * 
»****••***»** 



•FORCE CHANNEL 2* 

• CLEAR OF • 

* UNCHECKED I/O ♦ 

***************** 



***D1»*«***»* 

• EXECUTE I/O » 
•AS SPEC BY PI, * 
*P2, ANO P3. IF * 
•NON-OVRLP RTAPE* 

* SBfl-SERNCIS • 
************* 



» IF P4 * 
• IS SPEC, • 

EXECUTE BOL 
•INSTRUCTION* 



•EXECUTE* 
BEX INST. * 
P5 0-M0D=7, 
OTHERWISE • 



.RETRY 

24 
*****D2********** 
•SCPERR DHG2* 
*-*-*-•-•-•-*-•-» BRANCH 



05 

•****E2********** 

•ICS-RET BAB1/F1* 
*-*-*- *-*-*-#-*-*V I A 
X* SET BRANCH AT ».... 
•SCS-PR TO GO TO* 
* BLOCK CC06 • 



**** #g 1********** 

• IF P6 IS SPEC * 
•SER (CHAN-1 > OR* 

• SFR <CHAN-2) • 

• IN ARFA * 
•INDICATED BY P6* 



* IF P5 » 
« IS SPEC * 

EXECUTE BEF 
« INST TO • 



********* 



•START CHANNELS 

• AND RE-ENTER 

* ALERT MODE * 
***************** 



VIA X 

JINTEXT 



D3 • • 23 



BRANCH ANY 



•NO BRANCH 



**»»E3* 


********* 


SENTRY 


BAA3* 








START CHANNELS 


* 


AND RE 


-ENTER 


* 


ALERT 


MODE 


* 


******* 


********* 



********** 



*****H3*»****** 

* IF P6 IS SPEC 

* MOVE CONTENTS 
X* OF SERNOIS TO 

* THE FIELD 
•INDICATED BY P 
*************** 



12 
*****J3**»* ****** 
•SCS-SCN BAE4/D1* 
*-*_*-*-*-*-*-*-*VIA. 
X* CONTINUE CHAN *. 

* SCHEDULER *DROPPED 

* OPERATIONS *THRU BOL 
********»****»*»*AT CC04 

. VIA SINTEXT, 
. BOL EXECUTED 
X AT BLOCK CC04 



*IF READ* 
•LABEL. EXEC» 
•BEX WITH D-MOD 
* =7. IF NOT* 



* APPROPRIATE • 

* ERROR * 

* ROUTINE * 

***************** 



X 35 

•****F4********** 
•THIS BLOCK IS A* 
*NOP IF THIS IS * 
* A LABEL READ * 
•OPERATION (USED* 
•BY ERROR RTNE) • 
***************** 



BRANCH ANY 



•START CHANNELS 

* AND RE-ENTER 

* ALERT MODE 
*************** 

• VIA 
.SINTEX 



IOSYS-RESUME 
E5*»* 



-*-* 



•START CHANNELS * 

* AND RE-ENTER * 

* ALERT MODE * 
***************** 

.VIA 
.SINTEXT 



PSTAC 

H5*«* 



*****J5* 



61 
**•**••* 

•SET FILE SCHEO * 
*I/0 INSTR SPEC * 
*BY P2 TO STACK * 
*IN POCKET SPEC * 
* BY PI * 
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Open, Close, and End-of-Reel Procedures 

Priority Assignment Routine 

File priority allows the user to determine the order in 
which non-forcing i/o requests for two-area tape files 
on a channel are serviced. Such requests are interro- 
gated in the pending switch network. This network 
is an aggregate of the linkages of the respective file 
scheduler pending switches in their relative priority 
order (high to low), and the linkage from the channel 
scheduler to the highest-priority pending switch, and 
the exit linkage from the lowest-priority pending switch 
(Figure 2). 
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H is the instruction labeled SCS-S3 in the associated channel scheduler. 
P n is the instruction representing a pending switch of priority n. 
L is SCS2ENT for channel 1, $INTEXT for channel 2. 

Figure 2. Pending Switch Network 

A non-forcing i/o request for a file is recorded dur- 
ing scheduling operations by the file scheduler when 
an area is empty (input) or full (output); however, 
only the request of highest priority on the channel is 
honored at a time through the channel scheduler entry 
to the pending network. 



PRIORITY ASSIGNMENT— DEFINITION AND USAGE 

Assignment of file priorities is the process of ordering 
the pending switch network to the priority order de- 
sired. The 1410 iocs allows the user to set the priority 
order at source or object time according to the diocs 
priority option chosen: 



DIOCS PRIORITY 

Option 

NONOVERLAY 



ASSEMBLE 



Results 

A priority assignment routine is generated 
and remains in storage at all times. Pri- 
orities are assigned during open and re- 
open operations for all two-area files 
named in the open macro and for those 
not named but active. 

A priority assignment routine is not gen- 
erated. The assignment of file priority 
is made at compilation time; the priority 
order is determined by the sequence of 
source dtf cards. The priority order may 
not be modified at object time. 

A shorter priority assignment routine is 
generated, which is overlayed immedi- 
ately following its execution. File prior- 
ities are assigned only during the first 
open operation and may not be modified 
later. A two-area file opened subse- 
quently is treated as a one-area file. 



PRIORITY ASSIGNMENT— METHODOLOGY 

The priority assignment routine builds a table of pend- 
ing switch addresses, each address being a dcw defin- 
ing the low-order location of a pending switch instruc- 
tion. A two-character dcw, representing the priority 
and channel-overlap identification for the file, precedes 
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each address. Each pair in the table act as function and 
table argument for table look-up operations; the start- 
ing location in the table is low priority for channel 1. 
The assigning of file priorities is done on a file-by- 
file basis and the assignment of each file is complete: 

1. The file is inserted into its relative channel-prior- 
ity order in the table. 

2. The file is inserted into its relative priority order 
in the pending switch network for the channel. 

This methodology is illustrated in Figure 3 for the 
case of the first two-area file at the time of the first 
open operation, priority overlay and a file priority of 
7 on channel 1 are assumed. 



Description of Priority Assignment 

Block DA01, $PAHSK: (Overlay) Because the link- 
age table routine causes control for all files named in 
the open macro instruction to go to the priority assign- 
ment routine ( due to the 9 in the all-inclusive sequence 
at $pox in the linkage table described in Chart df, 
block 08), a file type test is made to determine if the 
file is two-area tape. If it is not a two-area tape file, 
control branches to spaexit, block DA25. For two-area 
tape files, control passes to block dao2. 

(Non-overlay) Because the linkage table routine 
directs only two-area tape files to go to the priority 
assignment routine, block daoi does not exist. 

Block DA02, $PAHSK: The file is two-area tape. The 
operand of the spenswe indexed label entry ($--wto 
is moved to the B-address of the sout instruction, block 
DA16, and a +44 is added to it. The resulting address, 
$--wtg+44, points to the low-order location of the file's 
pending switch instruction. 

Block DA03: The priority code (indexed label, 
$dtfact-i) and the channel identification (indexed 
label, $dtfact+4) for the file are moved to $parg. 
$parg is a two-position dcw used as search argument 
for the look-up operation in the table of pending switch 
addresses. 

1. Non-overlay: Control then proceeds to the block 
sequence da04 through DA12 for processing in case 
the file is being re-opened. 

2. Overlay: Control proceeds directly to block DA13; 
blocks DA04 through DA12 do not exist. File prior- 
ities are sorted only during the first open opera- 
tion, since the priority assignment routine is over- 
laid immediately following its execution for all 
the files named in the first open. 

procedure in case of RE-OPEN (NON-OVERLAY ONLY) 

Block DA04: A sbr into index register 15 is executed 
to point to the first pending switch address in the table 
( first table function ) . 



Blocks DA05, $COMP, DA06, and DA07: A loop 
is performed to determine if the file's pending switch 
address (contained in the B-address of $out) is in the 
table. A test for blank table argument (0-6+xi5) at 
block DA05 precedes the accessing of the next function 
( sbr into xis ) at block da06 and the comparison of the 
previous function <7+xi5) to the file's pending switch 
address performed at block DA07. A blank table argu- 
ment means the file is not represented in the table and 
control branches to $end, block DA13. 

Blocks DA08 through DA12: The pending switch is 
eliminated from the file scheduler pending network 
on the channel and from the table. (It will later be 
reinserted according to its new priority.) 

At blocks dao8 and DA09, the contents of the function 
which represent the next-higher priority pending ad- 
dress (0 + xi5) and the contents of the previous function 
which represent the file's pending address (7+X15) are 
moved to the A- and B-addresses, respectively, of $link. 
At slink, block daio, the file's pending instruction is 
moved to overlay the higher-priority pending instruc- 
tion, thus eliminating the file from the network. 

At blocks daii and DA12, a loop is performed, suc- 
cessively overlaying each table function ( starting with 
file's 7 + xi5) with the next-higher priority function 
(0+xi5). After each move, the next function is accessed 
(sar into xis) and the table argument (6+xi5) is tested 
for non-blank. When a blank table argument is reached, 
control proceeds to send at block DA13. 

COMMON PROCEDURE TO INSERT FILE INTO PENDING 
NETWORK AND TABLE 

Blocks DA13, $END, and DA14: A look-up low or 
equal with sparg as search argument is performed in 
the table of pending switch addresses. The look-up is 
followed by an sbr into xis instruction. Note that the 
function addressed by index register 15 has a 2nd- 
higher than file priority on the respective channel. 

Block DAIS: The A-address of sout is initialized 
with the next-higher priority pending switch address 

(7 + X15). 

Block DA16, $OUT: The file is partially inserted into 
the pending network by overlaying the branch address 
of the pending switch to be inserted with the address 
of the higher-priority pending switch. ( this corresponds 
to Figure 3, step A.) 

Blocks DA17 through DA20: The file is now inserted 
into the table in its relative channel-priority position. 
( This corresponds to Figure 3, step B. ) 

At block DA17, a mkcwg moves the entire table down 
7 positions, starting at lower storage, up to the next- 
higher priority pending address (where a high-order 
group mark has been placed ) . At blocks dais through 
DA20, chained mlc commands overlay the next-higher 
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priority pending address (7 + xi5> by the file's pending 
address (from the B-address of $out), move sparg to 
the vacated table argument (2 + xi5), and overlay the 
vacated 2nd-higher priority address (0+xi5) by the 
lst-higher priority pending address (from the A-address 
of $out). 

Blocks DA21, DA22, and DA23: The insertion of the 
file into the pending network, started at block dai6, 
is now completed by overlaying the branch address 
of the lst-higher priority pending instruction to point 
to the new file's pending switch. ( This corresponds to 
Figure 3, step C. ) 

At blocks DA21 and da22, the B-address of $in, block 
DA23, is initialized with the lst-higher priority pending 
address (0+xi5) and +6 is subtracted from the file's 
pending address at the B-address of $out (to adjust 
the address to high-order ) . 

At sin, 5 chained mlcs commands move the adjusted 
B-address of $out to the branch address of the 1st 
higher priority pending switch instruction. 

Block DA24: If the non-overlay option is in effect, 
blocks DA25 through da28 do not exist. After the file 
reference address for the file is restored to index reg- 
ister 15, control branches to $enta (block dboi) to 
start open procedures for the file. 

Blocks DA25 and DA26: If the overlay option is in 
effect, block DA24 does not exist. After +6 is added to 
the file counter, $count, a test is made here to deter- 
mine whether the next check character in the calling 
sequence work area (at $dtfbx+i) is the terminal 
check character, J. If not, there is another file to process 
and control branches to sexit, block df03. 

Blocks DA27 and DA28: All files have been handled 
by the priority assignment routine. The contents of 
scg-unt (which contains the count for all files handled, 
(i.e., 6 times n, where n is the number of files) are 
subtracted from the A-address of sexit ( the file-access- 
ing instruction, block dfo3 ) so that sexit is reinitialized 
to point to the beginning of the macro calling se- 
quence. The following specific tape sequence is then 
moved in over the all-inclusive sequence at spox in 
the routine linkage table. The all-inclusive sequence is 
described at block dfos. 

Tape Sequence 

DCW $TPCLOS 

DC @ J@ 

DC $ENTA 

$POX DC 2 

Control now branches unconditionally to the load 
program at location 00281 to bring in the remaining 
iocs routines to overlay the priority assignment routine. 
The load execute is to sexit, block df03 in the linkage 
table routine, where the files are now processed ac- 
cording to file type. 



Description of Open Procedures 

Blocks DB01, $ENTA, and DB02: The base channel 
and unit identification for the file (indexed labels, 
$ad-6 and sad-8, respectively) are moved to $arg. A 
look-up (lle) is then executed in the table of file refer- 
ence addresses with sarg as the search argument. The 
format of the table is shown in Figure 5. 

Block DB03: The contents of index register 15, the 
file reference address for the file, are moved to the table 
function. 

Block DB04: The various internal count fields (e.g., 
record count, if specified) are blanked out. 

Block DB05: The address of the file scheduler initial- 
ization coding block for the file, (indexed label, 
sdtfi), is moved to sfinit, block db09. For applications 
not specifying channel change, blocks db06 through 
DB08 do not exist and control passes to block DB09. 
Blocks dbo6 through dbos are executed for channel 
change applications. 

Block DB06: Two dummy clear word mark instruc- 
tions are executed to initialize the A- and B-address 
registers. The A-address register is set to point to 
I scctab+27 in the channel change table. The B-ad- 
dress register is set to point to indexed label sab- 7. 
The contents of the A-register are placed in index 
register 15. 

Block DB07: A branch if bit equal instruction ( with 
an A d-modifier) is used to test $ad-7 for a channel 2 
file indicator. ( An @ indicates channel 1, an * channel 
2. ) If the file is a channel 2 file ( the B bit in the A char- 
acter matched the B bit in the *), control branches 
directly to the common exit, block dbo9. For a channel 
1 file, control passes to block dbos. 

Block DB08: It is a channel 1 operation. A dummy 
clear word mark instruction is executed to initialize 
the A-address register to point to $cctab+i in the 
channel change table. The contents of the A-register 
are placed in index register 15. 

Block DB09, $FINIT: At sfinit, control exits to the 
file scheduler initialization coding block as set by block 
dbos. Block dbio represents this initialization block. 

Block DB10: The file scheduler is initialized accord- 
ing to the file characteristics (e.g., file type, number of 
areas, and wlr procedure). A table of initialization 
function performed versus the file characteristics is 
presented in Chart be. Control passes to sentab, block 

DBll. 

Block DBll, $ENTAB: sentab is the place of return 
after file scheduler initialization or after a standard 
header label error when a retry is desired. Index reg- 
ister 15 is reinitialized with the file reference address 
from sdtfbx in the calling sequence work area. When 
diocs channel change is in effect, this block does not 
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exist and sentab becomes the label of the next block 

(DB12). 

Blocks DB12 and DB13: The rewind indicator for 
the file ( indexed label, sdtfls ) is tested. If no rewind 
is specified (code = 0), control branches to block DB14. 
Otherwise, control passes to the utility subroutine at 
srwdru to rewind the tape. Control returns from the 
subroutine to block DB14. 

Block DB14: The label type indicator (indexed label, 
sdtflb) is tested. If it is a standard label file (code 
= 0), control branches to $entc on Chart dc, block 01. 
The return after standard header-label procedures is 
to $entd, block DB16, for input, or sentf, block db27, for 
output. 

Block DB15: The file type code (indexed label, 
sdtfli) is tested. A 1 indicates an input file; control 
passes to sentd, block db16. A indicates an output 
file; control passes to $entf, block DB27. 

Block DB16: It is an input file ( code = 1 ) . The user's 
Exit 7 address (indexed label, $E7) is moved to the 
exit routine (at sswbxa) in case the file uses Exit 7. 

Block DB17: The Exit 7 indicator for the file (in- 
dexed label, $D7 ) is tested. If Exit 7 is not used, control 
branches to block DB21. 

Block DB18: The exit routine at sswbx executes an 
sbb which sets the return address, block DB21, into the 
re-entry routine (at sstlext). Index register 15 is re- 
stored for the user, and control branches (as set by 
block dbi6 ) to the Exit 7 address. 

Block DB19: Exit 7 can be used for checking of input 
header labels in lieu of, or in addition to, standard 
label processing. To process an additional label, the 
user must give a rtlbl macro instruction. For non- 
standard labels, the user must give a rtlbl macro in- 
struction for each label before processing. 

Block DB20: The re-entry routine is executed at 
$reent to save index register 15 for the user, to restore 
it for iocs (from sdtfbx), and to branch to block db21 
( set by block dbis ) . 

Blocks DB21 and DB22: An indicator (indexed label, 
$dtfl4 ) is tested to determine if the file has a tape mark 
after the header. If so (code = l), the subroutine at 
sreadrC, block DB22, is executed to bypass the tape 
mark. If there is no tape mark, (code = 0), control 
passes to block DB23. 

Blocks DB23, $ENTI, and DB24: $enti is a common 
gathering point for an input or output file in open, 
feorl, and end-of-reel operations. If diocs checkpoint 
is in effect, the $chkpt subroutine, block DB24, is exe- 
cuted to take a checkpoint on the specified checkpoint 
tape. 

Blocks DB25, $ENT], and DB26: sentj is a common 
coding block executed for an input or output file in 
open, close, feorl, and end-of-reel operations. The 



file type indicator (indexed label, sdtfact) is tested 
for number of areas. If it is two-area (code =2), the 
pending switch for the file is set off at block DB26. If 
the file is not a two-area file, control passes to sexitru, 
on chart df at block n. $exitru is the termination rou- 
tine which tests if there is another file to process. 

Block DB27, $ENTF: It is an output file (code=0). 
The user's Exit 5 address ( indexed label, $E5) is moved 
to the exit routine (at sswbxa) in case the file uses 
Exit 5. 

Block DB28: The Exit 5 indicator for the file (in- 
dexed label, $D5 ) is tested. If Exit 5 is not used, control 
branches to block db32. 

Block DB29: The exit routine at sswbx executes an 
sbr which sets the return address, block DB32, into the 
re-entry routine at sstlext. Index register 15 is restored 
for the user, and control branches (as set by block 
DB27 ) to the Exit 5 address. 

Block DB30: Exit 5 can be used for the writing of 
output header label(s) in lieu of, or in addition to, 
standard label processing. For standard labels, the user 
can build the label in the iocs label area and give a 
wtlbl macro instruction, to write his additional label. 
For non-standard labels, the user must give a rtlbl 
macro instruction if he wishes to check the output 
label and, after checking, execute an iorwd macro to 
rewind the tape before building his label. 

Block DB31: The re-entry routine at sreent saves 
index register 15 for the user, restores it for iocs ( from 
sdtfbx), and branches to block DB32 (set by block 

DB29 ) . 

Blocks DB32 and DB33: An indicator (indexed 
label, $dtfl4) is tested to determine if a tape mark is 
to be written following the header label(s). If so 
(code = 1), the utility subroutine at swtmru, block 
DB33, is executed to do so. Otherwise, or after the tape 
mark is written, control branches to senti, block DB23. 

Description of Standard Header Label Procedures 

Block DC01, $ENTC: The file type indicator (in- 
dexed label, sdtfli) is tested. If it is an output file 
( code = ) , control proceeds to block DC26. If it is an 
input file (code = 1), control goes to block DC02. 

Block DC02, $ENTCR: The header label is read into 
the iocs label area. For an output file, this block is en- 
tered only when the test at block DC27 indicates the 
label is to be checked (dtf checklabel ident or all). 

Block DC03: The label check indicator for the file 
( indexed label, $dtfl3 ) is tested. If no check is to be 
made (code = 1), control leaves label procedures to 
continue input processing on Chart db at block 16. For 
an output file, control cannot exit (see block DC27). 

Block DC04: The label identifier is compared to 
lHDRb. Unless they match, the label is non-standard or 
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there is no label. A branch unequal is made to $nhl, 
block DC23, to process the error. 

Block DC05: The file type indicator for the file ( in- 
dexed label, sdtfli ) is tested. If it is output (code = 0), 
control branches to sophd, block DC14. 

Block DC06: It is an input file. The header label 
fields (included by the diocs and specified by the dtf 
for the file ) are compared to their file reference coun- 
terparts. Assuming diocs labeldef check: 

1. If the user specified ident in the dtf checklabel 
card, only the file name is checked. 

2. If the user omits the dtf card, serialnum, the file 
serial is not checked. 

Blocks DC07 and DCOS: The fields compared do not 
match. An identifying message, 30i22bFiLbxxxn, where 
xxxn represents the base tape identification, is set up 
in the console message area, and the snote subroutine 
(represented by block dcos) is executed to type the 
message. 

Blocks DC09 and DC10: The label fields in positions 
11-35 of the iocs label area (see Figure 4) are set up 
in the console message area, and the $note subroutine 
(represented by block dcio) is executed to type the 
message. 

Block DC 11: The internal fields corresponding to 
the fields in the message typed at block dcio are set 
up in the console message area. 



Block DC12, $NIH: The shalt subroutine is exe- 
cuted to type either the message set up by block dcii 
or by block DC23, and to enter a waiting loop for op- 
erator reply. 

Block DC13: The first character in sreply, the input 
area for the operator's reply, is tested. If it is an A 
(indicating the accept option was chosen), the input 
header error is ignored and control branches to $entd, 
block DBie, to continue input processing. Otherwise, 
the operator has replaced the incorrect input tape reel 
with the proper one and control branches to sentab, 
block dbii, to prepare to process the new label. 

Block DC14, $OPHD: It is an output file. The re- 
tention cycle is added to the creation date in the iocs 
label area. 

Blocks DC15 and DC16: If the sum exceeds 366, 
635 is added to the sum in order to obtain the actual 
retention date. 

Block DC 17: If today's date (in core locations 00115- 
00119) is beyond the retention date, the tape can be 
used and control branches to sophdab, block DC28, to 
assemble the output header. 

Block DC18, $DATEB, and Block DC19: Today's 
date lies within the retention date. An identifying mes- 
sage, 4ombDATbxxxnbyyddd, where xxxn is the base 
tape identification and yyddd is the computed reten- 
tion date, is prepared in the console message area. 



Label 



Operation 



Operand 



Header < 



blOCSLBA 



DCW 
DC 



@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx@ 



@XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX@G 



Explanation 

-lHDRb 

- Tape serial 

- File serial 
-Reel sequence 
-File name 

- Creation date 

- Retention cycle 

- Spare information 



Traili 



blOCSLBA 



DCW 
DC 



X 



@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx@ 



@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx@ G 



-Trailer identifier 
lEORbor lEOFb 

-Block count 

-Record count 

-Hash total overlaid by 
rec count (6 pos) 

-Effective hash total (10) 

"Spare information 

-Spare information 
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Block DC20, $NOH: The $halt subroutine is exe- 
cuted to type either the message set up by blocks dcis 
and DC19 or by block DC25, and to enter a waiting loop 
for operator reply. 

Blocks DC21 and DC22: The first character in sreply 
is tested. 

1. If an A (indicating the operator chose the accept 
option), the output header error is ignored and 
control branches to sophdab, block DC28, to as- 
semble the new output header. 

2. If numerical, sreply contains the correct day's 
date inserted by the operator. The correct date 
is moved into core locations 00115-00119 and 
control branches to sentab, block dbii, to prepare 
to reprocess the output header label. 

3. If neither, the operator has replaced the incorrect 
output tape reel with the proper one and control 
branches to sentab, block dbii, to prepare to re- 
process the new label. 

Block DC23, $NHL: It is not a standard header label. 
An identifying message, 30i33bNmbxxxn, where xxxn 
is the base tape identification, is prepared in the console 
message area. 

Block DC24: The file type indicator ( indexed label, 
sdtfli) is tested. If it is an input file (code=l), con- 
trol branches to $nih, block dci2. 

Block DC25: It is an output file (code = 0). The 
first part of the message is altered to so indicate. The 
message is now, 40i3obNOHbxxxn. Control passes to 
block DC20 to type the message. 

Block DC26: The test at block dcoi indicates it is an 
output file. The Exit 3 indicator (indexed label, $ds) 
is tested. If this file uses exit 3 (code = l), control goes 
to block DC41; iocs checking of the header label is 
bypassed. 

Block DC27: The label check indicator for the file 
(indexed label, $dtfl3) is tested. If the output label 
is to be checked (code = 0), control goes to sentcr, 
block DC02. Otherwise (code=l), control proceeds to 

block DC28. 

ASSEMBLE STANDARD OUTPUT HEADER LABEL 

Block DC28, $OPHDAB: sophdab is reached directly 
from block DC27, if no output label checking is to be 
done for the file, or via connector A4 (from block dcit 
or DC21 ) , after the output label has been checked. The 
indicator ( indexed label, $D9 ) is tested to see if the file 
serial is to be made equal to the tape serial of the first 
reel of the file. If not (code = 0), control branches to 

block DC31. 

Block DC29: The check character in the calling 
sequence work area (sdtfbx-5) is tested for an * to 
distinguish between an open and end-of-reel operation. 
If it is end-of-reel ( * ), control branches to block DC31. 



Block DC30: It is the first reel of the file (open oper- 
ation). The tape serial in the iocs label area is moved 
into the file serial field for the file ( indexed label, shfs ) . 

Block DC31: Today's date in core locations 00115- 
00119 is moved to the creation date field for the file 
(indexed label, shcd). 

Block DC32: The last 40 positions of the iocs label 
area are blanked out. 

Block DC33: After the various header fields for the 
file are chain-moved into the iocs label area with word 
marks (see Figure 4, positions 11-40), the identifier 
lHDRb is moved to positions 1-5. 

Block DC34: The user's Exit 4 address (indexed label, 
«E4) is moved to the exit routine (at sswbxa), in case 
the file uses Exit 4. 

Block DC35: The Exit 4 indicator (indexed label, 
sd4 ) is tested. If this file does not use Exit 4 ( code = ) , 
control branches to block DC39. 

Block DC36: The exit routine at sswbx executes an 
sbr which sets the return address, block DC39, into the 
re-entry routine (at sstlext). Index register 15 is re- 
stored for the user, and control branches (as set by 
block DC34 ) to the Exit 4 address. 

Block DC37: Exit 4 can be used for altering the first 
40 header positions in the label area and/or entering 
additional information into the last 40 positions. 

Block DC38: The re-entry routine (at sreent) saves 
index register 15 for the user, resets it for iocs (from 
sdtfbx), and branches to block DC39 (as set by block 
DC36 ) . 

Block DC39, $ENTE: The utility subroutine is exe- 
cuted at srwdru to rewind the output tape. 

Block DC40: The subroutine at swritru is executed 
to write the assembled header label on the tape. Con- 
trol then exits to continue processing the output file 
at sentf, block DB27. 

Block DC 41: The user's Exit 3 address (indexed 
label, $E3 ) is moved to the exit routine ( at sswbxa ) . 

Block DC42: The exit routine at sswbx executes an 
sbr which sets the return address, block DC39, into the 
re-entry routine (at sstlext). Index register 15 is re- 
stored for the user, and control branches (as set by 
block DC41 ) to the Exit 3 address. 

Block DC43: Exit 3 can be used for assembling a 
label in the iocs label area. This label is in lieu of iocs 
label-building (blocks DC28 through DC33). If there is a 
label on the tape and the user wishes to check it, he 
must issue a rtlbl before he can check it and assemble 
the new label. 

Block DC44: The re-entry routine (at sreent) is exe- 
cuted to save index register 15 for the user, reset it for 
iocs (from sdtfbx) and branch to block DC39 (as set 
by block DC42). 
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Description of End-of-Reel Procedures 

Block DD01, $EORU: End-of-reel processing shares 
many of the routines and coding blocks used for open 
and close macro processing. These macros furnish 
the information needed for processing by means of 
the calling sequence. An end-of-reel operation is proc- 
essed as a one-file calling sequence operation. The 
reader should refer to the description of the linkage 
routine at blocks dfoi through dfi4. An sbr into the 
A-address of $exit, block dfos, furnishes the termina- 
tion routine (which will be entered on completion of 
the end-of-reel operation) with the address of the 
necessary termination character (see block dfh). This 
address, which is the file reference address, also serves 
to furnish the termination routine with the linkage 
pivot back to the file scheduler (see blocks dfi3 and 
DF14 ) . An sbr into sdtfbx is executed to set the calling 
sequence work area with the file reference address, 
with which index register 15 will be initialized (see 
block DD02). An * is moved into the calling sequence 
work area at sdtfbx-5 to serve as the defining check 
character for an end-of-reel operation. 

Block DD02: The clear channels routine is executed. 
Both the channels are cleared of unchecked 1/0 opera- 
tions, and iocs is set to ignore start channel operations. 
After the contents of index register 15 are saved for 
the user, it is set with the file reference address (from 
sdtfbx ) . 

Block DD03: The file type indicator ( indexed label, 
sdtfli), is tested to distinguish between an input and 
an output operation. If the latter ( code = ) , control 
branches to sopeor, block DD25. 



INPUT TRAILER PROCEDURES 

Block DD04: The A-address of $exit, which was set 
at block ddoi to point to the file reference address, is 
incremented by 7 to serve as the input file's termina- 
tion character address and linkage pivot return to the 
file scheduler. 

Block DD05: The label code for the file (indexed 
label, sdtflb) is tested. For standard labels, control 
goes to block dd06; for non-standard, it goes to block 

DD23. 

Block DD06, $IPEOR: It is a standard label file 
(code = 0). The subroutine, sreadru, is executed to 
read the trailer label into the iocs label area. 

Block DD07: An identifying message, lombTiEbxxxn, 
where xxxn is the base tape identification, is prepared 
in the console message area, in case of a trailer label 
count discrepancy. 

Block DD08: Word marks are set into the iocs label 
area according to the length of the fields to be 
compared. 



Blocks DD09 and DD10: The count fields (if any) 
specified by diocs counts (hash and/or record) and 
the block count are, in turn, compared to the corre- 
sponding trailer label fields. 

Blocks DD11: The snote subroutine is executed to 
type the identifying message set up by block dd07. 

Blocks DD12 and DD13: The counts in the iocs 
label area are moved into the console message area, 
and the snote subroutine is executed to type them. 

Blocks DD14 and DD15: The internal counts for the 
file are moved into the console message area with the 
left-most six positions of the hash total field, if speci- 
fied, truncated (see Figure 4). The snote subroutine 
is executed to type the message. 

Block DD16, $BCRT: The user's Exit 6 address (in- 
dexed label, «E6) is moved to the exit routine (at 
sswbxa), in case the file uses Exit 6. 

Block DD17: The Exit 6 check indicator (indexed 
label, $D6) is tested. If this file does not use Exit 6 
( code = 0), control branches to block DD21. 

Block DD18: The exit routine at sswbx executes an 
sbr which sets the return address, block dd21, into the 
re-entry routine (at sstlext). Index register 15 is re- 
stored for the user, and control branches (as set by 
block ddi6 ) to the Exit 6 address. 

Block DD19: Exit 6 can be used for various purposes 
depending on the characteristics of the input file. For 
a standard label file, it can be used to read and process 
additional trailer labels. For a non-standard label file, 
it can be used to read and process the trailer label(s). 
In the latter case, the user must test for end of file. 
If it is, the user can get to his end-of-file address by 
moving an F to $lba + 3 in the iocs label area to overlay 
the R ( see block dd24 ) . Note that if the user branches 
directly to his end-of-file address, start channel opera- 
tions will be ignored until another end-of-reel or macro 
has been processed; also, there is a possibility that the 
file may start an 1/0 operation. 

Block DD20: The re-entry routine (at sreent) saves 
index register 15 for the user, resets it for iocs (from 
$dtfbx), and branches to block dd2i (as set by block 
ddis). 

Block DD21: The fourth position in the label identi- 
fier field in the iocs label area ($lba + 3) is compared to 
an R. If it is an R, a branch-equal is made to $enth, 
block de28, to continue input end-of-reel processing. 

Block DD22, $ENTG: This block is reached either 
from block dd21 when it is end of file ( F ) or from block 
DD23 for a non-standard label file that does not use 
Exit 6. The user's end-of-file address (indexed label, 
sdtfa ) is moved to the A-address of sexit, to substitute 
this address as the terminal address for use of the termi- 
nation routine. Control then goes to the termination 
routine via $entj. Note that since the linkage to the file 
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scheduler at $exit is destroyed, the user cannot return 
to iocs. The user must use Exit 6 when processing a 
multi-reel, non-standard file. 

Blocks DD23 and DD24: It is a non-standard label 
file (see block ddos). The Exit 6 indicator for the file 
(indexed label, sd6) is tested. If Exit 6 is not used, the 
file is treated as if it is at end of file and control branches 
to sentg, block DD22. Otherwise, the iocs label area is 
made to appear as end of reel by placing lEORb into its 
identifier field for the proper operation of blocks ddi6 
through DD21. 

Block DD25, $OPEOR: It is an output end of reel. 
The Exit 8 check code for the file (indexed label, sds) 
is tested. If Exit 8 is not used, control branches to 

SOPEORA, block DE05. 

Block DD26: The operand of the sar instruction at 
block DD28 is set with the contents of strigen ( indexed 
label-file reference address + 18) in case a two-area 
file is being used. 

Block DD27: The file type code (indexed label, 
sdtfact) is tested for number of areas. Control passes 
to block DD30 for a one-area file. 

Block DD28: It is a two-area file. The contents of the 
A-register, which is the I-address of the instruction at 
block DD27, are stored into the branch address of s-trig 
( see block DD26 ) . Control branches to s~wtg in the file 
scheduler (represented by block dd29). 

Block DD29: At s--wtg, the pending switch for the 
file is tested. If it is on, the last block is written on tape 
by a force operation. If it is off, or after the force, con- 
trol returns to block DD30 from $--trig (as set by block 

DD28 ) . 

Block DD30: The user's Exit 8 address (indexed 
label, ses) is moved to the exit routine (at sswbxa). 

Block DD31: The exit routine at sswbx executes an 
sbr which sets the return address sopeora, block deos, 
into the re-entry routine (at sstlext). Index register 
15 is restored for the user, and control branches ( as set 
by block dd3o) to the Exit 8 address. 

Block DD32: Exit 8 requires special programming 
to tailor its use for normal user requirements. It is rec- 
ommended that the user make use of Exits 1 and 2 in 
lieu of Exit 8 for these purposes. 

Block DD33: The re-entry routine (at sreent) saves 
index register 15 for the user, resets it for rocs (from 
sdtfbx), and branches to sopeora, block deos (as set 
by block DD31 ) . 



Description of Close Procedures 

Block DE01, $TPCLOS: The contents of sdtfa (in- 
dexed label ) are moved to the I-address of the instruc- 
tion at block deo2 to handle the case of a blocked out- 
put file. 



Block DE02: The file type code (indexed label, 
sdtfli ) is tested. If it is an output file ( code = ) , con- 
trol branches to the address as set by block deoi. This 
address is to s-pads in the file scheduler (represented 
by block de03 ) for a blocked file, or to sclsaba, block 
deo4 (since padding does not apply) for an unblocked 
file. If it is an input file (code = 1), control goes to 

block DE04. 

Block DE03: The block is padded and the file is put 
on pending, if necessary. 

Block DE04, $CLSABA: The check character in the 
calling sequence work area ($dtfbx-5) is checked for 
an * to distinguish between a feobl and a close opera- 
tion. If the character is an *, the operation is feorl and 
control passes to block deos; otherwise, control goes to 

block DE06. 

Block DEOS, $OPEORA: It is an feorl operation, 
or an output end-of-reel operation (from block dd25). 
The label identifier lEORb is moved to the iocs label 
area identifier field. Control passes to block deos. 

Blocks DE06 and DE07: It is a close operation. The 
label identifier lEOFb is moved to the iocs label area 
identifier field. The reel sequence field for the file ( in- 
dexed label, $hrs-i) is zeroed. 

Block DE08, $CLSA: The file type code (indexed 
label, $dtfli ) is tested to distinguish between an input 
and an output operation. If it is an input file (code = 1), 
control goes to block DE28. 

OUTPUT TRAILER PROCEDURES 

Block DE09: The operand of the sar instruction at 
SPRIME3, block deii, is set with the contents of strigen 
(indexed label-file reference address +18) in case it 
is a two-area file. 

Block DEW: The file type code (indexed label, 
sdtfact) is tested for number of areas. For a one-area 
file, control passes to sprimer, block dei3; for a two- 
area file, to $prime3, block DEll. 

Block DEll, $PRIME3: It is a two-area file. The 
contents of the A-register, the address sprimer (from 
the I-address of the instruction at block deio), are 
stored into the branch address of $--trig (see block 
DE09). Control branches to $~wtg in the file scheduler 
( represented by block DE12 ) . 

Block DE12: At $~wtg the pending switch for the 
file is tested. If it is on, the last block is written on tape 
by a force operation. If it is off, or after the force, con- 
trol returns to sprimer, block DE13, from $-trig ( as set 
by block deii ) . 

Block DE13, $PRIMER: A tape mark is written on 
the output tape by the utility subroutine at swtmru. 

Block DEM: The label indicator for the file (in- 
dexed label, sdtflb) is tested. If it is a standard label 
file (code = 0), control proceeds to the block sequence 
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beginning at sclsb, block deis. Otherwise ( code = 1 ) , 
control goes to ssusxa, block DE22. 

Block DE15, $CLSB: After the last 50 positions of 
the iocs label area are blanked, the various internal 
counts are moved into the first 30 positions as shown 
in Figure 4. The trailer identifier was moved at block 

DE05 or DE06. 

Block DE16: The user's Exit 1 address (indexed 
label, $ei) is moved to the exit routine (at sswbxa), in 
case this file uses Exit 1. 

Block DE17: The Exit 1 check indicator is tested. 
If Exit 1 is not used (code = 0), control branches to 

block DE21. 

Block DE18: The exit routine at $swbx executes an 
sbb which sets the return address, block de21, into the 
re-entry routine (at sstlext). Index register 15 is re- 
stored for the user, and control branches (as set by 
block dei6 ) to the Exit 1 address. 

Block DE19: Exit 1 is used for entering additional 
information into the standard output trailer label. 

Block DE20: The re-entry routine is executed (at 
$reent), to save index register 15 for the user, to reset 
it for iocs (from sdtfbx), and to branch to block de2i 
( as set by block deis ) . 

Block DE21: The trailer label is written on the out- 
put tape by the subroutine at swritru. 

Block DE22, $SUSXA: The Exit 2 check indicator 
(indexed label, $D2) is tested. If Exit 2 is not used 
(code = 0), control branches to block de28. 

Block DE23: The user's Exit 2 address in the dtf 
(indexed label, $E2) is moved to the exit routine (at 

SSWBXA ) . 

Block DE24: The exit routine at sswbx executes an 
sbr which sets the return address, block DE27, into the 
re-entry routine (at sstlext). Index register 15 is re- 
stored for the user, and control branches (as set by 
block DE23 ) to the Exit 2 address. 

Block DE25: Exit 2 is used for writing non-standard 
labels in addition to, or in lieu of, standard labels. 

Block DE26: The re-entry routine (at sreent) saves 
index register 15 for the user, resets it for iocs (from 
sdtfbx), and branches to block de27 (as set by block 

DE24 ) . 

Block DE27: A tape mark is written after the label 
by the utility subroutine at swtmru. 

POST TRAILER PROCEDURES 

Block DE28, $ENTH, and Blocks DE29, DE30, 
DE31, and DE32: The rewind indicator for the file ( in- 
dexed label, sdtfl5 ) is tested for rewind ( code = 1 ) 
and rewind unload ( code = 2 ) . If either is called for, 
the appropriate utility subroutine at srwdru or srwuru 
is executed. The reel sequence number ( indexed label, 
shrs- l ) is then updated by 1. 



Block DE33: The check character in the calling 
sequence work area c$dtfbx-5) is checked for an * to 
test the kind of operation. If it is an * (eor or feorl), 
control goes to block DE34 to prepare for a new tape 
reel. Otherwise, it is a close operation and control 
branches to sentj, block DB25. 

BlockDE34: An identifying message, 20i2obEORbxxxn, 
where xxxn is the base tape identification, is set up in 
the console message area. 

Blocks DE35 and DE36: The alternate reel indicator 
for the file ( indexed label, dtfl2 ) is tested. If the code 
is 1, source dtf altdrive was specified and control 
branches to block DE37. Otherwise, the shalt subrou- 
tine is executed to type the message and a waiting loop 
is entered to permit the operator to mount the new 
reel. Control then branches to senta, block dboi, to 
open the new reel. 

Block DE37: The base and alternate tape identifica- 
tions for the file (indexed labels, sad and sad- 5, re- 
spectively) are swapped. 

Blocks DE38 and DE39: After the first position in 
the console message is decremented by 1, the snote 
subroutine is executed to type ioi2obEORbxxxn where 
xxxn represents the former base tape identification. 
Control then branches to senta, block dboi, to open the 
new reel. 



Linkage Routines 



COMMON ENTRY FROM OPEN, CLOSE, FEORL, 
AND RDLIN MACROS 

Block DF01, $CLOP: An sbr into the A-address of 
sexit, block DF03, is executed. This sets sexit to point 
to the first check character in the macro calling 
sequence. 

Block DF02: The clear channels subroutine is exe- 
cuted to clear both channels of unchecked i/o opera- 
tions, and iocs is set to ignore start channel operations. 
The contents of index register 15 are saved for the user. 

CALLING SEQUENCE AND LINKAGE TABLE ROUTINE 

Block DF03, $EXIT: The next (or first) segment of 
the macro calling sequence, consisting of the check 
character, file reference address, and next check char- 
acter, is moved to the calling sequence work area. The 
work area format is: 



Label Operation Operand 



Explanation 



$DTFBX DCW 



@x@ Check character for file 

@nnnnn@ File reference address 
@x@ Check character for next file 

or terminal character 
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Each macro has its unique check character as follows: 
Macro Check Character Presence of 2-bit 

OPEN C yes 

| CLOSE □ or ) (lozenge or right paren) no 

FEORL * (asterisk) no 
+ 

| RDLIN ? or (question mark or plus zero) not used 

The terminal check character is always a J. 

Blocks DF04 and DF05: The calling sequence 
pointer ( A-address of $exit ) is set to point to the next 
file's check character (or terminal character) in the 
macro calling sequence. 

Block DF06: Index register 15 is initialized with the 
file reference address for the file (from sdtfbx in the 
calling sequence work area). 

Block DF07: The check character for the file (from 
sdtfbx- 5 in the calling sequence work area) is com- 

+ + 

pared to ( plus zero ). If it is a 0, control branches to 

process the rdlin operation at srdlin, block DG31. 

Block DF08: A look-up high or equal with the file 
type as the search argument (indexed label, sdtfact) 
is made in the routine linkage table. Each table argu- 
ment (file type) is preceded by the open and close 
linkages. For example, the one-area tape linkages are: 



Operation 



Operand 



DCW 


$TPCLC 


DC 


@bj@ 


DC 


$ENTA 


DC 


1 



Explanation 

Close linkage 
Needed for the move 
Open linkage 
File type (table arg) 

When priority overlay is specified, the beginning 
of the table is compiled with an all-inclusive sequence 
shown below. The 9 in the dc at spox causes open link- 
age to the priority assignment routine regardless of 
file type. 

Operand 



Label 



$POX 



Operation 

DCW 
DC 
DC 
DC 



$EXITRU 
@bj@ 
$PAHSK 
9 



After all two-area files have been processed in the pri- 
ority assignment routine (the others are passed by), 
the all-inclusive sequence is overlayed with a tape 
sequence before the second iocs load (see Chart da, 

block DA28). 

Block DF09: After an sbr into the A-address of a 
mlca, the latter moves the open and close linkages 
into a double branch, which is shown as the exits from 
block DF10. 

Block DF10: The check character for the file (from 
sdtfbx- 5 in the calling sequence work area) is tested 
for the presence of a 2-bit to determine which branch 
to take. The presence of a 2-bit causes control to go to 
the open branch; its absence, to the close branch. ( See 



table at block DF03.) Chart df shows a summary of link- 
ages for each branch, open, or close, by file type. The 
file types are in the left-most column of the tables. 

TERMINATION ROUTINE 

Block DF11, $EXITRU: The next check character 
in the calling sequence work area is compared to the 
termination character J. If it is not J, there is another 
file to process and control branches to sexit, block DF03. 

Block DF12: The sentry routine is reset to permit 
the resumption of channel operations. 

Block DF13: The address of the termination charac- 
ter in the calling sequence pointer at sexit is moved to 
the exit routine at sswbxa, block DF33. 

Block DF14: The exit routine is executed (blocks 
DF31 through DF33) to restore index register 15 for the 
user, and control branches (as set by block DF13) to 
the termination instruction. The table below block dfh 
shows the effective branch location taken (the operand 
of the branch instruction) for an end-of-reel operation. 

CLEAR CHANNEL ROUTINE 

Block DF21, $STLE or $SCS: An sbr into the re- 
entry routine ( at sstlext ) is executed to establish the 
return linkage. 

Blocks DF22 and DF23: Channels 1 and 2 are cleared 
of unchecked i/o operations, to prevent any interrupts 
during label processing, etc., in the diocs routines. 

Block DF24: The sentry routine is set to prevent the 
resumption of normal channel operations. 

Block DF25: The re-entry subroutine is executed to 
save the" contents of index register 15 for the user. 
Control then branches to the location as set by block 

DF21. 

EXIT routine 

Block DF31, $SWBX: An sbr into the re-entry rou- 
tine at sstlext, block DF43, is executed in case iocs will 
be re-entered from user coding at one of the 8 stand- 
ard exits. 

Block DF32: Index register 15 is restored for the 
user with its previous contents saved in sxishd. 

Block DF33, $SWBXA: Control branches to the 
address as set by the diocs routine exited from, or to 
the termination instruction as set by block DF13. 

re-entry routine 

Block DF41, $REENT: The contents of index regis- 
ter 15 are saved for the user in the hold area, sxishd. 

Block DF42: Index register 15 is initialized with the 
contents of sdtfbx, in case this is a re-entry from user 
coding during diocs routine processing. 

Block DF43, $STLEXT: Return is made to the main 
iocs routine as set by the sbr at block DF31 or block 

DF21. 
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Description of General I/O Routines, RDLIN 

READ OR WRITE LABEL ROUTINE 

Block DG01, $READRU: An sbr is executed into 
the routine's exit, block dgio. 

Block DG02: All 80 positions of the iocs label area 
are blanked. 

Block DG03: The i/o command at slbop, block DG06, 
is set to a read by moving an R into its d-modifier. 

Block DG04, $LBIN, and Block DG05: The X-con- 
trol of the base tape identification (indexed label, 
$ad-6) is moved to the X-control of the i/o command 
at slbop, and the R or X channel status operation code 
(indexed label, sad- 5) is moved into the operation 
codes of the bex and ba instructions that follow the i/o 
command. 

Block DG06, $LBOP: The i/o command is executed 
to read the label into the iocs label area or write the 
label from the iocs label area (see Figure 4). 

Block DG07: A bex is executed for the channel to 
serror, block DG08. A branch is taken only for busy, 
not ready, or data check indications. The bex forces 
an interlock on further processing until the operation 
has been completed. 

Block DG08: The error routine is executed, correct- 
ing the error if possible. 

Block DG09: A ba to the next sequential instruction 
is executed to prevent interlock on the next i/o com- 
mand given. 

Block DG10: Control exits to the location as set by 
block dgoi or dgii. 

Block DG11, $WRITRU: An sbr is executed into the 
routine's exit, block dgio. 

Block DG12: The i/o command at slbop, block DG06, 
is set to a write by moving a W into its d-modifier. Con- 
trol then branches to block DG04. 

I/O UTILITY ROUTINE: REWIND, REWIND UNLOAD, 
AND WRITE TAPE MARK 

Blocks DG21, DG22, and DG23: srwdru, srwuru, 
and swtmru represent the entry points to the utility 
routine for rewind, rewind unload, and write tape 
mark operations, respectively. In each case, an sbr is 
executed to set the common exit, block dg30. The sbr 
is followed by a 1-character dcw, which contains the 
d-modifier that applies for the operation ( R, U, or M ) . 

Block DG24: The address of the dcw is moved to the 
A-address of the move instruction at block DG26. 

Block DG25: The R or X channel status operation 
code for the file (indexed label, $ad-5) is moved to 
the operation code for the ba instruction at block DG28. 

Block DG26: The character in the dcw is moved to 
the d-modifier of the i/o utility instruction at block 
DG27. The X-control of the base tape identification 



(indexed label, $ad-6) is chain-moved to the X-control 
of the i/o utility instruction. 

Block DG27: The i/o utility command is executed. 

Block DG28: A ba on the channel to serror is exe- 
cuted. The ba forces an interlock on further processing 
until the operation has been completed for a write tape 
mark operation only. 

1. For a rewind or a rewind unload operation, a 
branch can only occur for busy or not ready. 

2. For a write tape mark operation, a branch can 
only occur for busy, not ready, or data check. 

3. The ba also serves to satisfy the interlock require- 
ment for the next i/o command. 

Block DG29: The error routine is executed, cor- 
recting the error if possible. 

Block DG30: Control returns to the user's program 
at the address set by block DG2i, DG22, or DG23. 

PROCESS RDLIN 

Block DG31: The rdlin card is read into the iocs 
label area. 

Block DG32: When the operation has been com- 
pleted, a bai is executed to serror. 

Block DG33: An error has occurred. A halt is pro- 
vided to reload the card, before a re-execution of the 
i/o command in the error routine. 

Block DG34: Card columns 16-20 of the card in the 
iocs label area are compared to the identifier, 
@rdlin@. A branch unequal is made to block dg36. 

Block DG35: A rdlin card was recognized. A series 
of chained moves are executed to move card columns 
21-50 to the several internal fields that relate to label 
processing in the file table. Control then branches to 
the termination routine at sexitru, block dfii. 

Block DG36: It is not a rdlin card. An identifying 
message, 20i36bRLNb, is prepared in the console mes- 
sage area. 

Block DG37: The $halt subroutine is executed. The 
message is typed, followed by a waiting loop to allow 
the operator to insert the proper rdlin card. Control 
then branches to block dg31 to read it. 



Description of Message and Wait Loop Routine 

The function of this routine is to type a message 
and to enter a wait loop for an operator reply. After the 
reply is entered, control is returned to the instruction 
immediately following the one which originally caused 
entry to the message and wait loop routine. 

Block DH01, $HALT: The contents of the B-address 
register are stored in the I-address of the branch in- 
struction at shaltx (block DH08). This sets the routine's 
exit. 
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Block DH02: The contents of an area labeled serfld 
are typed on the console printer, serfld is the area 
used by iocs to assemble its messages. 

Block DH03: A message, "20183 ci," is moved to 
serfld. This message is typed if the information en- 
tered through the console printer by the operator is 
invalid, or if the operator cancels during inquiry. 

Block DH04: A read console printer instruction is 
executed. If the inquiry request key has not yet been 
pressed by the operator, the no transfer indicator is 
turned on and control goes to block dho5. ; If, however, 
it has been pressed, an I is typed to indicate an inquiry 
operation and the keyboard is unlocked to allow entry 
of data by the operator. If, during inquiry, the operator 
presses the inquiry cancel key, the condition 1/0 
channel status indicator is turned on and control goes 
to block DH05. After entering data, the operator presses 
the inquiry release key. 

Block DH05: A test is made to determine if the no 
transfer indicator is on. If it is, it indicates the operator 
has not yet pressed the inquiry request key and con- 
trol returns to block DH04 to retry the read console 
printer instruction. 

Block DH06: A test is made to determine if the 1/0 
condition or data check 1/0 channel status indicators 
are on. If either is on, it indicates that a validity error 
was detected on the entry of data or the inquiry 
cancel key was operated during inquiry; control 
passes to block DH02 to type the console entry error 
message. 

Block DH07: The 1/0 channel status test is satisfied 
by executing a branch any to the next sequential in- 
struction. 

Block DH08, $HALTX: Control branches to the loca- 
tion set by block dhoi. 



write console printer routine 

The function of this routine is to type the contents of 
serfld on the console printer and to return control to 
the instruction immediately following the one which 
caused entry to the write console printer routine. 

Block DHU, $NOTE: The contents of the B-address 
register are stored in the I-address of the branch in- 
struction at block DH15. This sets the routine's exit. 

Block DH12: The contents of serfld are typed on 
the console printer. 

Block DH13: A test is made to determine if any 1/0 
channel status indicators are on. If they are all off, 
control goes to block dhis to exit from the routine. If 
any indicators are on, control enters the console printer 
error routine (represented by block dhh). 

Block DH14: The console printer error routine deter- 
mines if the operation must be retried because of a 



busy or data check condition. If either condition is 
present, control returns to block DH12 to retry typing 
of the message. 

Block DH15: Control branches to the location set by 
block DHll. 

CONSOLE PRINTER ERROR ROUTINE 

If this routine is entered because of a data check, 1/0 
condition, no transfer, or busy condition, it sends con- 
trol back to the unsuccessful console printer instruc- 
tion. If entered for some other channel status indicator, 
it returns control to the instruction immediately follow- 
ing the one which caused entry to it. Wrong length 
records are not checked. 

Block DH21, $CPERB: The contents of the B- 
address register are stored in the I-address of the 
branch at scpex. This sets the normal (no error) 
return. 

Block DH22: A test is made to determine if the data 
check, 1/0 condition, no transfer, or busy indicators are 
on. If any are on, the operation must be re-executed; 
control goes to block dh23. If none are on, the operation 
is considered a success, and control goes to block DH24. 

Block DH23: A + 17 is subtracted from the I-address 
of the branch at scpex. This sets the routine's exit to 
return to the unsuccessful console printer instruction. 

Block DH24, $CPEX: Control branches to the loca- 
tion set by block dh21 or by block dh23. 

SAVE ROUTINE 

The save routine translates the settings of the zero 
balance and compare indicators into a code which is 
saved in core storage. If the program uses any special 
interrupts, e.g., urrequest or inquiry, the save routine 
will appear in the interrupt coding. Otherwise, it ap- 
pears in the tape error routine. The code generated 
by the save routine is used by the restore coding, de- 
scribed later, to restore the indicator settings before 
control is given back to the user. 

The results of the save routine for various combina- 
tions of the zero balance and compare indicators are 
shown in the following table. (Note: Units position 
is labeled sps. ) 





Zero Balance 


No Zero Balance 




vvv 


v v 


Low 


102 


102 




vvv 


V V 


Equal 


101 


101 




vvv 


V V 


High 


100 


100 



Block DH31, $PSV: The contents of the B-address 
register are stored in the I-address of the branch at 
spsx. This sets the routine's exit. 
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Block DH32: The code, located at $ps, $ps-i, and 
$ps-2, is set to 101 with word marks over all three char- 
acters. 

Block DH33: A test is made to determine if the zero 
balance indicator is on. If it is, control goes to block 

DH35. 

Block DH34: The word mark at $ps-i is cleared. 
Block DH35: A test is made to determine if the equal 
compare indicator is on. If it is, control goes to block 

DH39. 

Block DH36: A test is made to determine if the low 
compare indicator is on. If it is, control goes to block 

DH38. 

Block DH37: The units position of the code <$ps> is 
made equal to zero by subtracting it from itself. 

Block DH38: The units position of the code ($ps> is 
added to itself. 



Block DH39, $PSX: Control branches to the location 
set by block DH31. 



RESTORE ROUTINE 

The restore coding appears in line in various places 
in iocs. It is not a subroutine. The function of the re- 
store coding is to recreate the 1411 machine status, as 
it existed before the save routine was executed, using 
the code generated by the save routine. 

Block DH41: The units position of the code (sps) is 
compared to a 1. This instruction restores the high, 
low, or equal compare indicator. 

Block DH42: The zero balance status is restored by 
executing a zero and add instruction. The field added 
is the tens position of the code ($ps-d. 
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FROM LINKAGE 
TABLE ROUTINE- 
2-AR TAPE 



FROM LINKAGE 
TABLE ROUTINE- 
ALL FILES 



DA 



» <TO 
* FIR 

*ADDR 



SBR XI 

POINT 

ST PEN 



»***»B2********** 
* MOVE FILE * 
♦PRIORITY + CHAN* 

X *IDENT TO SPARG * 

NON- *SEARCH ARGUMENT* 
OVERLAY * * 



NON. OVERLAY 

SPAHSK X 02 
##»**B3**«* ****** 

* SET B-ADDRESS * 

* OF $OUT WITH * 

. ... *LOW-ORDER ADDR *X 

* OF FILE PNOG * 

* INSTRUCTION * 
»*»««*«*******»*• 



•X* END CF TABLE 



* LOOK UP LOW 
** OR EQUAL IN 
•X* PENDING SORT 
*TABLE ON SPARG 



•MOVE 1ST HIGHER* 

X*PNDG ADDRESS TO* 

* B-AODR OF SIN * 

###»*#*»###»■»*#■»# 



*#**•*•*« 



**•**«»•********* 



* SBR X15 

* (TO NEXT PNDG 
*ADDR IN TABLE) 



#«*»*D2********** 

* SBR X15 * 

* (TO POINT TO * 

* 2ND HIGHER * 

* PRIORITY PNDG * 

* ADDR IN TABLE) * 



X 22 
•****03********** 

* ADJUST B-ADDR * 

* OF SOUT TO PT * 

* TO HIGH-ORDER * 

* ADDR OF FILE * 

* PNDG INSTR * 
**»«*»**•****•#** 



*DF * 
* B2* 



* PENDING * 
ADDR IN TABLE 

* THIS FILE * 



»»***E2********** 

* SET A-ADDRESS * 

* OF sour WITH * 
•1ST HIGHER PNDG* 

* AODR IN TABLE * 



TO SEXIT 



M X 23 

#*##»E 3* ********* 
•MOVE H-0 LOC OF* 
•FILE PNDG INSTR* 
• ( IN SOUT) TO «... 
•BRANCH ADDR OF »OVERLAY 
•HGHR PNDG INSTR* 



•NON-OVERLAY 



X 27 

* SUBTRACT * 

* COUNTER FROM * 

* A-ADDRESS * 

* OF SEXIT * 



*»•***•»•» 



■ »«**»* 



«*«**F1 ********** 

* MOVE NEXT * 
•HIGHER PRIORITY* 

* PNDG ADDR IN * 
•TABLE TO A-ADDR* 

SLINK • 



*«* 



>*#»* 



T X 16 
#»#»#F2********** 

* OVERLAY FILE * 

* PENDING INSTR * 
•WITH 1ST HIGHER* 

* PRIORITY PEND * 

* INSTR * 



* RESTORE DTF 

* ADDRESS TO 

* X!5 



**###F4*####*#**« 

* MOVE * 

* TAPE SEQUENCE * 

* INTO LINKAGE * 

* TABLE • 

* * 



•»«*«G1 ********* 
•MOVE FILE PNDG 

• ADOR IN TABLE 

• TO B-ADDR 

• OF SLINK 
» 



•»»»#G2********* 

* MOVE TABLE 

* DOWN 7 POS IN 
•STORAGE TO SET 

* UP NEXT ENTRY 



***•**» 



ftltllH 



TO SENTA 



TO LOAD PROGRAM 



SLINK X 10 
•••»«H t*«******** 

• OVERLAY 1ST * 
•HIGHER PRIORITY* 
•PNDG INSTR WITH* 
•THIS FILE PNDG • 

* INSTR • 
***************** 



X 18 
»****H2*** ******* 
*MOVE FILE PNDG * 
•ADDR TO OVERLAY* 
•1ST HIGHER PNDG* 

* ADDR IN TABLE * 

* * 
***************** 



SMOVE X 

»«4t*»jl*«* «>••«* 
* OVERLAY EACH 
•PNDG ADDR WITH 
•X*HIGHER PRIORITY 
•ADDR ONE BY ONE 
*SAR X15 TO NXT 



11 



»****J2*****«*** M 
* MOVE SPARG TO * 
•OVERLAY VACATED* 
•TADLE ARGUMENT * 



.* END OF TABLE 



X 20 
***»»K2********** 

•MOVE 1ST HIGHER* 

* PNDG ADDR TO » 
•OVERLAY VACATED*. 

* FUNCTION * 

» * 

*«»****«***«*»*** 



Chart DA. Priority Assignment 
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DB 



***** 
*DB * 
* Al* 



• SET UP *ARG 

* WITH FILE 
*IDENT FOR FILE 
ft 
»•»•«•»••••***** 



* REINITIALIZE 
•X* INDEX WORD 15 

* FROM *DTF8X 



REWINO TAPE 



»*****•**•« 



••••*Q 1 ft *ttft ****** 

* * 

* LOOK UP FILE * 
•IOENT IN TABLE * 
•OF OTF ADDRESS • 

* * 
ft********** ****** 



RET FROM LABEL 
PROCESSING (INPUT) 



»**•* 
*DC * 
* Al* 



TO SENTC 



*****C1 »«*******» 



»•*»***•* 



h******* 



«ENTF X 27 
**»»*C2 ********** 

* MOVE USERS * 
•EXIT 5 AODRESS * 

• TO tSWBX EXIT *X.. ......* 

* (BLOCK DB29) » OUTPUT=0 

• * 
****** *********** 



X SENTD X I 

C3 • * 15 *****C4*»******» 

* * • MOVE USERS 

• *EXIT 7 ADDRESS 
FILE TYPE * X* TO ISWBX EXIT 

• INPUT=1 * (BLOCK DB18) 

* * * 

• * ******«•»*•***** 



••••*D1 ********** 



******** ** ******* 



X 05 

NO ****»E1 ********** 

CHAN* MOVE ADDRESS • 

CHNG* OF FILE SCHED * 

.* INIT CODING » 

» INTO 4FINIT * 

• (BLOCK D809) * 

•ft*************** 

.CHAN 

•CHANGE 



•SBR IN RE-ENTRY* 

• EXIT, RESET * 

* X15 FOR USER * 

***************** 



•SBR IN RE-ENTRY* 

* EXIT. RESET * 

* X15 FOR USER * 
***************** 



»**»*F1 ********** 

* * 

* DUMMY CW * 

* INSTR TO SET * 
*X15. SAR IN X15* 



*****F2*» 



******** 



*F4»***** 



ft*************** 



CHANNEL 2 



•RESTORE X15 FOR* 
*IOCS. RETURN AS* 
* SET BY DB29 * 
ft**************** 



•RESTORE X15 FOR* 
•IOCS. RETURN AS* 
* SET BY DB1B * 
ft* **»»***»*•***** 



ft«*ft*Hl ********** 

* • 

* DUMMY CW * 

• INSTR TO SET * 
•X15. SAR IN X15* 

• * 
•ft **<••* ********* 



• ..X* AFTER HEADER 



AFTER HEADER 



22 
*****H5* •**»•**** 
•tREADRU DGB1* 
•-ft-*-*-*-*-*-*-* 

* READ * 

* TAPE MARK * 

* * 
***************** 



********* 



••••••*•••***»•** 



***************** 



* TAKE 
.X* CHECKPOINT 

* AT EOR 



• •.ft ••*•***•****** 



*»••* 

*DB * 

* K4* IENTJ 

* * 



*****K5** ******* 

* 

• SET FILE'S 
K* PENDING 

* SWITCH OFF 

**************** 



Chart DB. Open Procedures 



***** 

• OF * 

* B3* 
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DC 



*. FILE TYPE 



*. CUTPLT 



EXIT 3 USED 



A3 *. 27 

,X». LAEEL CHECK .* 



JCPHCAE 



•FILE SERIAL*. YES 

TC EGUAL .*.... 
• TAPE SERIAL* 



IEMCR X 02 

*«»**ei «••*«•«•** 

•SREACRL CGE 1» 



READ LAEEL 



MAKE INTERNAL 

FILE SERIAL = 

TAPE SERIAL 



LAEEL CHECK 



***** 
• DE « 
« C4* 



SPEC IF IED 

F IELDS 

MATCh 

*. LABEL.* 



•***C4******«*« 

MOVE USERS 

EXIT 3 ADDRESS 

TC *SWBX EXIT 

CELCCK CC42 ) 



«***CS**«»>**** 

MOVE 

TODAY*S DATE 

TO INTERNAL 

CREATION DATE 

DATE 

*************** 



TC *ENTO 



TO JENTC 



FILE TYPE 



**»*D3«**«*«««» 

WOVE I-C ICENT 

AND 
•30122 FIL ' TC 

JNCTE KSG APEA 



» SET 1*15 FOR 
•USER. SER INTO 
* RE-ENTRY EXIT 



*****D5* •***•* 

* BLANK OUT 

* FIRST 40 

* POSITIONS IN 
» LABEL AREA 



tNHL X 2 3 
*«*«*E1**«««««**» 

*POVE I-C ICENT * 
* ANC * 
*• 30133 N IN • TC* 
•SNCTE fSC AREA « 



***«! 



****« 



•*#**E2»******«* 

* SET *ORD MARKS 

* IN LABEL AREA. 
« ACD RETENTION 

* CYCLE TO 

* CREATION GATE 



TYPE MESSAGE 

ON THE CCNSCLE 

PRINTER 



*SBfl IN RE-ENTRY* 
* EXIT. RESET * 
» X15 FOR USER * 



*****E5****«***** 

* MOVE * 
•INTERNAL FIELOS* 

• INTO IOCS LABEL* 
« AREA * 

**»*•*****•*•**** 



FILE TYPE 



* MCVE 

* LABEL AREA 

* FIELDS TC 
**NOTE PEG APEA 



•RESTORE X15 FOR* 
•IOCS. RETURN AS* 
« SET BY 0C42 • 



*«*ft«F5********* 

* MOVE USER «S 

* EXIT 4 ADDRESS 

* TO SSWBX EXIT 

* (BLOCK 0C3fc) 

* EXIT 
**************** 



«***GI««****** 

MCVE 

•40130 NC ■ 

TC SNCTE MSC 

APEA 



*NCH X 2 

*«»«»H1 ********* 
**HALT OA1 

» CCNSCLE WSG 
•LOCP TC PERMIT 
•CPERATCR REPLY 



*«***02****«**** 

* ADC 635 

* ADC 635 TO 
"RETENTION DATE 

* IN LAeEL AREA 



A .* *. CTHEfi 

..*. 1ST REPLY .*. 
•.CHARACTER.* 



«*«**K1 ********** 

* MCVE PEFLY TO * 

* TCDAY'S DATE * 
*(STOR CELL 119)* 



X 
**** 

• DE 



SHOULO 
TAPE EE 
.RETAINED 



X 11 
**»**H3***««*«*** 

« MCVE * 
•INTERNAL FIELDS* 

• TO SNOTE MSG • 

* AREA * 



JCATER 


X 






!**! 


J2**» 




* 


MCV 


E COMPUTED 


* 


3ETENT ION 


DATE 


* 


ANE 


1-0 


;dent 


* 


HI 


SNOTE 


MSG 


* 




AREA 





* MCVE 

* '4C 13 1 DAT • TO 

•SKCTE MSC AREA 



•TYPEWRITER WSG. 
•LOCP TC PERMT 
•OPERATOR REPLY 



JENTE X 39 
*««**G4****«***** 

•*RWORU DGB3* 



REWIND TAPE * 
****«*•***»•*•* 



,WRITE LAEEL 



* C2* 
TC SE-NTF 



A ( ACCEPT > 



.*. EXIT 4 USED 



*SBR IN RE-ENTRY* 
• EXIT. RESET * 
« XI5 FOR USCtt « 



•DB *T0 *ENTD 
* C4« 



* USER'S * 
•EXIT 4 ROUTINE • 



*****KS#****«***» 
**REENT DFG5* 
*_*_»-*-*-*-*-*-* 

••RESTORE X15 FOR* 
•IOCS. RETURN AS* 
» SET BY DC 36 • 



*DE * 
* A2* 



• Chart DC. Header Label Procedures 
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DD 



.FROM FILE SCHED 



SEORU X 1 
»****A1 ********** 

« SBR INTO * 
**EXIT. SDTFBX. * 
» SET * INTO * 
•SDTFBX CHK CHAR* 
* * 

*«•**••*«#•*••*** 



SIPEOR 

»****A5*» 
•SREADRU 



*»•***** 



READ LABEL 



•»«**B1 ••****•*** 
»«STLE DFB4* 
*-*-*_*-*_*_*_*_» 

•CLEAR CHANNELS * 
•SAVE + SET X15 * 



X 07 
****»B5* ********* 
•MOVE I/O IDENT * 

• AND * 
•M0134 TIE • TO* 
*$NOTE MSG AREA * 

* * 
•••***•*••••••**• 



FILE TYPE 



04 
**«»*C2********** 

* ADD +7 TO * 

* A-ADDRESS * 
X* IN SEXIT *. 

* (BLOCK DFB2) * 

* * 
****••*»*••*•***« 



X 08 
**»**C5»*******»* 
•SET WORD MARKS * 

* IN LABEL AREA * 

* TO COMPARE * 
» FIELDS • 

* * 
ft******* •*****•*« 



Dl * * 25 



*0E * 
* Dl* 



»***«04»*»*****»* 



*»•*•*•••••*•**** 



•HASH TOTAL * 

TRAILER HASH 

• TOTAL * 



TO SOPEORA 



X 26 
•***»E1 ********** 
•SET OPERAND OF * 

• BLOCK DD28 TO • 
•FRA+18 (IN CASE* 
•FILE IS 2-AREA)* 

• * 
ft* ****** »••*•***• 



SBCRT X 16 
ft*** *£4 ******** ** 

* MOVE USERS • 
•EXIT 6 ADDRESS * 

* TO SSWBX EXIT *X. 

* (SLOCK DD18) • 
» ft 
*****ft*****ftft*»ftft 



E5 



10 



RCD » 
YES * + BLOCK * 
..-.* COUNTS = TRLR • 
• COUNTS * 
•COUNTS * 



Fl • • 
1 AREA 



•••••F2********** 

• • 

• SET S TRIG • 

.X» TO BRANCH TO • 

* BLOCK DD30 * 

* * 

»****••*••**•«««* 



X 11 

*****F5********»* 
•SNOTE DHA2* 

*_»_*_*_*_»_#_#.* 

* WRITE CONSOLE *X 

* MESSAGE * 

* * 
•• *•**•**•***»* ** 



X 30 

*****G1 •*••*****« 

• MOVE USERS * 
•EXIT 8 ADDRESS • 

• TO SSWBX EXIT *X.. 

• IBLOCK DD31) » 

• * 
•***•*••**•*•••*• 



X 29 
**«**G2***«ftft»**« 

*S — WTG BDD1* 

»-*-*-*-*-*-*-*-* 
.* WRITE BLOCK • 

• IF FILE IS • 

• PENDING • 

ft**************** 



X 18 

•••*»G4****«**ft** 
»$SWBX DFB5* 
*-*-*-*-*-*-*-»-» 
*SBR IN RE-ENTRY* 

* EXIT. RESET * 

* XI5 FOR USER * 
*****•*•*•*****•• 



X 12 

ft»***G 5* ••**••*•■ 

* MOVE * 

* LABEL * 
•COUNTS TO SNOTE* 

* MSG AREA * 

* * 
•ft*************** 



»»*»*H1 ********** 
•SSWBX DFB5» 
*-*_*_«_*_*_»_ »_ # 

*SBR IN RE-ENTRY* 

* EXIT, RESET * 

• X15 FOR USER • 

»*••**•**••*•*••* 



•***»H4** ******** 



*****•••***•**•»* 



*•**•**•**»***••« 



*-.*_#_»_*_*_*_«_» 

• USERS EXIT 8 * 

• ROUTINE * 

• * 
•**•*•••***••••** 



•RESTORE X15 FOR» 
•IOCS. RETURN AS* 
* SET BY DD18 * 

»*•*•****•****»** 



X 14 
*****J5**»***»«»* 

• MOVE * 

• INTERNAL * 
•COUNTS TO tNOTE* 

• MSG AREA * 

• * 
**•••****«•****** 



X 33 

•••••Kl **••••••*• 

•SREENT DFG5* 
*—»—*— .•—*—*_*_*_* 
•RESTORE X15 FOR* 
•IOCS. RETURN AS* 
* SET BY DD3I * 



SENTG X 22 
ft **«*K3* ********* 

* MOVE USERS * 

* EOF ADDRESS * 
» TO *X 

* A-ADDRESS * 

* OF SEX IT • 
*•*•*»**•»*•*•*** 



*****K5********** 

*«NOTE DHA2* 

»-*- »_*_*_*_»_«_# 

.* WRITE CONSOLE * 

* MESSAGE * 

* • 
**••**••»*******• 



•• »* » 
»DE • 
* Dl* 

* * 



***** 
*DB * 
* K4* 



***** 
*DE • 
* G2* 



Chart DD. End-of-Reel Procedures 
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DE 



ET I-ACORESS 
F BLOCK DEC2 
FRA+25 I IN 
ASE FILE IS 
CUTPLT) 



-ADOR 
3<BLK 
A+1B ( 
FILE I 
AREA) 



« SET * — TRIG 

X* TO BRANCH 

* TO SPRIMER 



FILE 

TYPE 



■**«*«*** 



•INPUT CR 

.CLTPLT 

-UNBLOCKED 



SPRIMER X 

«*WTMRU 



-.*—•-•-•- 



*»»**«■ 



>•******»• 



.» WRITE BLOCK * 

* IF FILE IS « 

* PENOING * 



FROM EOR ***»* 

CUTFUT *CE * 

* CI* 



YES .* 
•■•••• 

.(FECRL )* 



C4 *. 

EXIT 2 
USEC 



NO •« STANDARD 
*. LABEL 



« « 

* MCVE MEOR • * 

* TC IOCS LAeEL « 

• AREA * 

• * 



i«**D2«******** 

MOVE MEOF* 

TO IOCS LABEL 

AREA 

LAeEL AREA 



X 23 

■*«»«C4 *»*«»»*#•» 

* MOVE USERS • 
*EXIT 2 ACDRESS * 
» TO JSW8X EXIT « 

* (ELCCK CE24) » 



SCLSB X 15 
*##*»D5» •*•*«***■ 

* BLANK LAST 50 * 

* POSITIONS OF * 
•IOCS LABEL AREA* 

* ANO HOVE IN * 
•INTERNAL COUNTS» 



* ZERO REEL • 

* SEQUENCE * 

* NUMBER • 

* • 



•SBR IN RE-ENTRY* 

• EXIT, RESET • 

* X15 FOR USER « 



•»*##E 5 »»******» 

• MOVE USERS 
•EXIT 1 ADDRESS 

• TO SSWBX EXIT 

• (BLOCK DEIS) 



FILE 

TYPE 



.« OUTPUT 



FRCM EOR **** .INPUT 
INPUT « * 

•CE *.X. 

• ,G2* 

29 SENTI- .X. 
»*•**£ !««******«« C2 » . 2 

•SRVORU 0GB3* .» *. 

•-•-•-•-«-•-«-»-#' .» RE* I NO * 

« REWIND *X ...». 

• * RWO = 1 •. OPT ICN .* 

• « *. .* 

> * 

• .CThER 

••••••••••••....«...•.... X. 

21 -X. 

• •»««H I «■•««•#*•« |-2 *• 3 
*»RWURU CGB4* .» *.~ 
».*-«. •-i-*-»-«-t ., REWIND • 

• REMIND AND »X ». 

• UNLOAD • RWU=2 «. OPT I ON .* 

• * ». .* 

• .CTt-ER 



«*»» J2»*««### 

ADO +1 TO 

REEL 
SEQUENCE 



■K****** 



*«»**H3«**»««*«< 

* MOVE I-C 

« IDENT AND ECR 
X» MESSAGE TC 
« CONSOLE 

* MESSAGE AREA 
«*«*****«**•■«*« 



ALTERNATE 



*«***F4****»*«**> 



•«•««*•*•«««•**«* 



••RESTORE X15 FOR* 
•IOCS. RETURN AS* 
• SET BY DE24 • 



****«t^4 •••••••••• 

• • 
« SWAP BASE AND • 

.X« ALTERNATE I/O • 

• IDENTS • 

• • 



• SUBTRACT 1 

• FRCM SNOTE 

• MSG AREA 

• MESSAGE AREA 



EXIT 1 

USED 



•SBR IN RE-ENTRY* 
» EXIT. RESET * 
• X15 FOR USER • 



«««»*H5********* 



*•*«**»»*»* 



X 20 
•*«•• J5* ***•»»«»• 

**REENT DFG5* 
#—#-»-«-#_*_»_■_* 
•RESTORE XI5 FOR* 
•IOCS. RETURN AS* 
* SET BY DE18 * 



Ct-ECK 
CHARACTER 

• = * ■ 



"LOOP TC PERMIT 
* OPERATOR TC 
•MOUNT NEW REEL 

*•***»•«**•*«••■ 



•*«*•••»•*« 



.* 

* WRITE LABEL 

■ titlitllllim 



• Chart DE. Close Procedures 



*«•■ 

CB * 
Al* 
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DF 



COMKOK ENTRY 

FRCtt OPEN*CLOSE 

F£ORL AND 

RCLIN MACROS 

***** 
•OF • 

* ei* 

• * 



CALLING SE- 
QUENCE AND 
TABLE LINKAGE 
ROUTINE 
***** 

• OF * 

• B2« 



TERMINATION 

ROUTINE TC 

CHECK FOR 

TERM CHAR, ETC 

***** 



• OF • 

• B3« 



ROUTINE TO 

CLEAR CHANNELS 

AND SET INDEX 

WORD 15 

***** 

• DF • 

• B4« 



• B3 *.X. 



SBR INTC 

A- ADDRESS OF 

• EXIT 



SEXIT X C3 
*»**»B2»**» # »**** 

• HOVE CALLING » 

* SEO CHK CHAR. • 
X» FRA. Ct-ECK »X 

•CHAR TO CALLING* 
» WCRK AREA » 
•a*************** 



». ) ,OR C *. 



« SER INTO • 
•ENTER IOCS EXIT» 
• (8LCCK 0F43) • 

***************** 



• SBR INTO • 
•ENTER IOCS EXIT* 

• (BLOCK DF4J) * 



X C4 
*****C2********** 

* SET A-ACDRESS * 

* OF SEXIT TO • 
•POINT TO LOC OF» 

• NEXT CALLING » 

• ADDRESS * 



****C3*«*****»* 

SET TC ALLCW 

ENABLE NORMAL 

ENTRY TC CHAN 

OPERATIONS 



******** 



******** 



******* 



•RESTORE X15 TO * 
•USfcR*S PREVIOUS* 
* CONTENTS * 

***************** 



X C5 
*#***C2**»***»*»» 

• ADJUST A-ADOR • 

• OF SEXIT TO * 
•POINT TO LOC OF* 
•CALLING ADDRESS* 

• CHK CHAR » 
***************** 



****»03********* 
•MOVE A-ADDRESS 

• CF SEXIT TC 

• EXIT ROUTINE 

• EXIT 

• (BLOCK 0F33) 
•***•••*****•*** 



************* 



SSMBXA X 33 
*****05**»******« 
•EXIT TO ADDRESS* 
•AS SET BY IOCS * 
•ROUTINE EXITED * 

* FROM OR BY * 

* BLOCK 0F13 * 
***************** 



*****E2***« ••»»** 



****•**<•******** 



*****E3********* 

•SSWBX DFBS 

NACRO *-•-*-*-•-*-«-•- 

••••EXIT AS SET BY 
• BLOCK DF15 

• • 

X **************** 



*****E4 *•*•••**** 

* » 
•DISABLE NORMAL • 

* ENTRY TC CHAN * 

* OPERATIONS * 







YES 


.* RDLIN 












X 




*• = + C 


**** 


***** 




•a •* 


• * 


*DG * 




». .« 


• Gl * 


* 04* 




• NO 


• » 


* * 






**«* 


* 






• 


TO SRDLIK 





■*•*****•**•*«*« 



X C8 
*»«**€ 2* •»****•** 
•LOOK UP LINKAGE* 

• TABLE ON 1-0 * 

• DEVICE » 

• (ACTIVITY! * 

• * 
**•*****•*• ****** 



X C9 
*****H2****»*»«»» 

• SET FUNCTION * 

• AND ASSOCIATE • 
« FUNCTION INTO * 

• DOUBLE BRANCH * 



********* 



******** 



•SAVE USER'S X15» 
•AND EXIT AS SET* 
* BY BLOCK DF2I * 
***************** 



* 


1- 


AR 


, 


S- 


-BA+7 


. 


BP.G4 


* 


?- 


AR 


. 


S~ 


-TRIG 


. 


BCD3 


»»«* 


******* 


***** 


** 


***** 



ROUTINE TO . 
REENTER IOCS 

***** 
*DF • 
• G5» 



*****G5* ********* 

* * 

* * 
•SAVE USER'S X15* 



***************** 


I*** 


********************* 


• 1-5 


•CVERLAY-BEF 


2ND 


LOAD. SPAHSK • 


0AB3« 


• 1-2 


.OVERLAY-AFT 


2ND 


LOAD. SENTA . 


DBA1» 


• 1-2 


.ASSEMBLE 




. SENTA • 


D6AI» 


• t 


•NOK OVERLAY 




. SENTA • 


DBA!* 


•2 


•NON OVERLAY 




. SPAHSK • 


DAB4* 




•READER 




. SUROPEN. 


DFG1* 


• 4 


•PUNCH 




. SUROPEN. 


DFG1* 


•5 


•PRINTER 




. SUROPEN. 


OFGl* 


**•**••*•*•****• ***** 


*************** 


****** 



******* **** 



•RESTORE X15 TO 

• IOCS PREVIOUS 

* CONTENTS 

**************** 



* EXIT AS SET 
•BY BLOCK DF31 . 

• OR DF21 

»***»**•»****** 



******* *********** 

•1-AR.STPCLOS 

■2-AR.STPCLOS 

•3 RC.SEXITRU . 

*4 PL.SDTFACT+lt , 

•5 PR.SEXITRU 



DEA2* 
CEA2* 
CFE3* 
CBA5» 
BFB3* 



a************* ********* 
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BEAD LABEL 



WW ITL LABEL 



RtHIND UNLOAD 



WRITE TAPE MARK 

»« »*# 
»OG * 
* B5* 



DG 



*READRU 



SBR INTO 

READ/WRITE 

EXIT 



SBR INTO 

REAO/WRI TE 

EX IT 



SBR INTO 
UTILI TY EXI T 
CALLING SEC- 



S8R INTO 

UTILITY EXIT 

CALLING SEQ- 

CCW 'V* 



SWTMRU X 

»«***BS***««*** 

» SBR INTO 

* UTILITY EXIT 
" CALLING SLO 

* OCW 'M' 



BLANK OUT 
IOCS LAPEL 

AREA 



* STORE CALLING 
•ADDRESS IN SET 

* O-MOD INSTR 
» (HLOCK OG26) 



PROCESS ROL IN 



* MOVE CHAN * 
•STATUS FSO* 1-0* 
»IDLNT(R OR X)TC* 
«BA INSTRUCTION * 

* (BLOCK DG26) * 



READ CARD 

INTO IOCS 

LAEEL AREA 



• MOVE X-CCNTRCL 

• FROM 1-0 ICENT 

• TO SLeOP 



•SET CONTENT OF 
» CALLING DC* 
* INTO D-MOD OF 
« SRWDB 



BRANCH ANY 



• MVE CHAN STATUS* 

• FROM 1-0 ICENT • 
»(R OR X>TO BA + • 

• 8EX INSTRUCT ION" 
•BLOCKS DC07.08 * 



(»•*« 



*« ft* 



* MOVE * 

X««2013 RLN • TO* 

»*NOTE MSG AREA * 



BRANCH ANY 



•MOVE INFO FROM * 

* RCLIN CARD TO * 

* APPROPRIATE » 
•INTERNAL FIELDS* 



•HALT TO PERMIT 

• OPERATOR TO 

* RELOAD CARD 



»R»«»|-2**»*»»«»« 

• JtRROR EAA1 

X* CORRECT ERROR 

BRANCh *IF CORRECTABLE 

*«RX*KNX««R»«tt»tt 



EXIT AS SET 

BY BLOCK DG2I . 

OG29 OR DG30 



TO SEXITRU 



EXIT AS SET 

BY FLCCK 

DGOl CR DC11 



Chart DG. General i/o Routines 
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DH 



SHALT X 01 

•*a#*Al«»*w**tt*** 

• SBR IN I-ADDR * 
•OF BRANCH INST * 
•AT SHALTX. THIS* 

* SETS THE EXIT « 
» AT BLOCK DH08 * 



SNOTE X 1 1 
#«***A2** «**»**•» 

* S8R IN I-ADDR » 

• OF BRANCH INST * 
•AT BLOCK DH15. * 

* THIS SETS THE • 

• ROUTINES EXIT * 



t*»*«A4*****«**« 

• SBR IN I-ADDR 
» OF THE BRANCH 
•INSTRUCTION AT 

• IPSX 

» (SLOCK DH39) 



COMPARE 
tPS TO S101 
(RESTORE HI, 
LOW. EQUAL) 



• TYPE CONTENTS • 

• OF SERFLD ON • 
•CONSOLE PRINTER* 



*»#B2****»*** 

TYPE THE 

CONTENTS OF 

SERFLD ON 

THE CONSOLE 

PRINTER 



*»»B4**** 



••»*B5 ********* 

ZERO AND 

ADD JPS-1 TO 

$101-1 

(RESTORE ZERO 

BALANCE ) 



****»C !••••«••• 

• HOVE CONSOLE 
» ENTRY ERROR 

• MESSAGE 

• '20183 CI • 

• TO SERFLD 
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Error Routines 

LOOKUP OF FILE REFERENCE ADDRESS 

The table of file reference addresses is used by the 
tape error routine to look up (low or equal) the start- 
ing address of a file reference table knowing only the 
file identification (channel and unit). 

The table is in order by unit number (9 to 0) and 
holds ten or twenty entries, depending on whether 
there are one or two channels operative. Each entry is 
a seven-position dcw. The first five positions (function) 
hold a file reference address or, for an inactive file, 
blanks. The sixth and seventh position (table argu- 
ment) identify channel and unit respectively. The for- 
mat of the table of file reference addresses is shown for 
two-channel operation in Figure 5. 



Label 



Operation Operand 



$CU 



DCW 
DCW 



DCW 
DCW 
EQU 



bbbbbO n 
bbbbb0% 



bbbbb°n 
bbbbb9% 
*-l 



Notes 

Channel 2, unit 
Channel 1 , unit 



Channel 2, unit 9 
Channel 1 , unit 9 



Figure 5. Table of File Reference Addresses 

The address of the table argument at the start of 
a table look-up operation is location $cu. The table is 
searched until a match is made on file identification. 
The function of the matching entry contains the start- 
ing address of the file reference table for the file corre- 
sponding to the search argument. Note that the percent 
sign (%) and lozenge (□) for channel-mode is used 
regardless of whether the assembly is overlap or non- 
overlap; their collating sequence is lower than an at- 
sign (@) or asterisk (*), respectively. 

Tape Error Routine — Part 1 

Block EA01, $ERROR: The contents of the B-reg- 
ister are stored in the I-address of the branch instruc- 
tion at $erex ( normal exit at EH29 ) . The contents of the 
B-register are decremented by 1 to get the address of 
the low-order character of the Channel ba or bex in- 
struction, and are then stored in the A-address of a 
move instruction labeled $erent, block EA02. 

Block EA02, $ERENT: A move instruction, initial- 
ized by block eaoi, is executed. Its execution places 
the Channel ba or bex instruction in an area labeled 
$erba (block EA23). After the move is executed, the 
content of the A-register, which is now the address of 
the low-order character of the instruction preceding 



the Channel ba or bex instruction, is stored in the A- 
address of a move instruction at serpu, block eao4. 
This initializes a loop which gets the i/o instruction to 
$jug (label of the re-execute area). The loop is nec- 
essary because of the instruction format of two-area file 
schedulers. 

Block EA03: A word mark is cleared at $jtjg. This 
initializes the instruction length test. 

Block EA04, $ERPU: A move instruction is executed. 
If entered from block eaos, the instruction preceding 
the Channel ba or bex instruction is moved to $jug 
( re-execute area ) . If entered from block eao6, it moves 
the instruction preceding the last one it moved to sjug 
( re-execute area ) . A sar instruction is executed to re- 
initialize the move at $erpu for another pass, if required. 

Block EA05: A test is made to determine if the last 
instruction moved to $jug is ten characters in length. 
If it is, control goes to $erio (block eaio). 

Block EA06: A test is made to determine if the in- 
struction at $jug is a 5-character instruction. If it is not 
five characters in length, control goes to block EA04 
to move another instruction to $jug. 

Block EA07: A move instruction is executed to left 
justify the 5-character i/o instruction in the re-execute 
area. The label ($jug> now refers to the operation code 
of the i/o instruction. A nop word mark is moved to the 
location immediately following the instruction to allow 
its proper execution. 

Block EA08: The console message field (serfld) is 
set to 15 characters in length. 

Block EA09: The 5-character i/o instruction is moved 
to the console message field cserfld). Control goes to 

block EA12. 

Block EA10, $ER10: The console message field 
($erfld) is set to 21 characters in length. 

Block EA11: The 10-character i/o instruction is 
moved to the console message field. 

Block EA12: If the interrupt routine stores the 1411 
status indicators because of urrequest, inquiry, 1414 
on Channel 1 or 2, or Disk on Channel 1 or 2, control 
goes to block EA14. 

Block EA13: The 1411 status (compare and zero 
balance indicators) is saved by a subroutine labeled 

SPSV. 

Block EA14: The channel and unit of the tape file 
being checked are moved to $arg. 

Block EA15: A table look-up instruction is executed. 
The search argument is $arg (channel and unit) and 
the table is labeled $cu. The table and its description 
are shown in Figure 5. The function found is the file 
reference address (address of file name label). The 
contents of the B-register (low-order address of the 
function) are stored in the A-address of the move in- 
struction executed in block eai9. 
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Block EA16: The retry ($erct) and noise record 
($erct-2) counts are zeroed. 

Block EA17: The I-address of the branch instruction 
at $erex is moved to the B-address of a bce instruction 
at serqlb (block EC45). This initializes a test which 
determines if this entry to the error routine was from a 
label record read operation. 

Block EA18: A word mark is set at $ernr+13 (block 
ebii), a 1-time switch used to prevent multiple print- 
outs of the not ready message. A word mark is cleared 
at $ersk, a 1-time switch which is used to disable the 
skip and blank instruction at block ecis on the first 
pass. The execution of the cw instruction also initial- 
izes a sar instruction. The contents of the A-register 
are stored in the I-address of the branch at $erba. This 
initializes the branch at $erba (block EA23) to allow 
entry to block eai9. 

Block EA19: The move instruction, initialized by 
block EA15, is executed. It moves the file reference 
address to the A-address of a move instruction at $erfa 
(block EB3i). This move initializes the exceptional con- 
dition (wlr or eof condition) segment of the error 
routine. This segment is labeled serdly (block eb3o). 

Block EA20: The subroutine serchop initializes the 
bcb at block EA21 in order to check the proper channel 
for the file under test. 

Block EA21: A test is made to determine if the busy 
i/o channel status indicator is on. If the channel is not 
busy, control goes to block EA26. 

Block EA22, $JUG: An attempt is made to re-execute 
the i/o instruction. 

Block EA23, $ERBA: A test, initialized by blocks 
eao2 and EA18, is made. This causes processing to stop 
until the i/o operation is terminated. The test instruc- 
tion has the same operation-code and d-modifier as the 
Channel ba or bex instruction. If any of the indicators 
tested are on, control returns to block eai9. 

Block EA24: The ba instruction at block ea25 is 
initialized, to check the proper channel for the file 
under test. 

Block EA25: A ba instruction to the next sequential 
instruction is executed to satisfy the i/o channel status 
test before another i/o operation. Control goes to $erlv 

( block EB26). 

Block EA26: A test is made to determine on which 
channel the i/o operation was executed. If it occurred 
on Channel 1, control goes to block eboi. If it occurred 
on Channel 2, Channel 1 must be checked and cleared 
before proceeding so that the error routine may use the 
console printer. 

Block EA27: The address of the instruction following 
the Channel 2 ba or bex instruction is stored in the I- 
address of a branch at $wtgx ( block EA35 ) to initialize 
the return to finish checking the Channel 2 operation. 



Block EA28: A test is made on Channel 1 to deter- 
mine if an overlapped operation is in progress or has 
been completed and not checked. If neither condition 
exists, Channel 1 is clear and control proceeds to block 
eboi where further checking of the i/o operation is 
performed. 

Block EA29, $LMWTGR: The I-address of a branch 
instruction at $wtgx is decremented by 7. This sets 
$wtgx (block EA35) to return to the Channel 2 ba or 
bex instruction. 

Block EA30: The I-address of the branch at scsisfx 
is saved. This is necessary as this linkage to the Chan- 
nel 1 file scheduler may be destroyed if the error routine 
forces the Channel 1 i/o operation. 

Block EA31: If the interrupt routine stores the 1411 
status indicators because of urrequest, inquiry, 1414 
on Channel 1 or 2, or disk on Channel 1 or 2, control 
goes to block EA33. 

Block EA32: The zero balance and compare indi- 
cators are restored. 

Block EA33: Channel one is cleared of all unchecked 
i/o operations now in progress or already completed by 
giving control to scsisfs. 

Block EA34: The linkage saved in block EA30 is re- 
stored. 

Block EA35, $WTGX: Control returns to the error 
routine ( serror, block eaoi ) via the Channel 2 ba or 
bex instruction. A brief summary of what has occurred 
follows: 

The error routine was entered for a Channel 2 file. 
Once in the routine, it was determined that Channel 
1 must be cleared and checked. Linkage to the Chan- 
nel 2 file was saved and the Channel 1 operations were 
cleared and checked. The error routine was re-entered 
for the Channel 2 file. 

Block EA36, $ERCHOP: The address of the opera- 
tion code of the bex instruction being initialized is 
placed in the B-address of a move instruction at EA37. 
The address is also stored in the I-address of the exit 
branch instruction at block EA38. 

Block EA37: The move instruction, initialized by 
block EA36, is executed. It moves the operation code 
of the Channel ba or bex instruction to the operation 
code of the bex instruction being set to test the proper 
channel. 

Block EA38: A branch is executed to the location set 
by block EA36. 



Tape Error Routine — Part 2 

Block EBOI: The bnr instruction at block EB02 is 
initialized to test the proper channel for the file being 
checked. 
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Block EB02: A test is made to determine if the not 
ready i/o channel status indicator is on. If the unit is 
not ready, control goes to sernr (block ebio). 

Block EB02.1: With a non-overlapped assembly, 
block EB03 does not exist. Instead, for an input file, the 
contents of the B-register, after the read operation, are 
stored in sernois to initialize the noise length record 
test. This is accomplished in the file scheduler before 
checking the i/o operation. 

Block EB03: A test is made to determine on which 
channel the i/o instruction was executed. If it was 
Channel 1, the contents of the E-register are stored 
in sernois. If Channel 2, the contents of the F-register 
are stored in sernois. This initializes the noise length 
record test starting at block EC04. 

Block EB04: The bef instruction at block ebos is ini- 
tialized to test the proper channel for the file being 
checked. 

Block EB05: A test is made to determine if the i/o 
condition channel status indicator is on. If it is, a 
branch to seref (block ebi4) is executed. 

Block EB06: The ber instruction at block EB07 is 
initialized to check the proper channel for the file 
being tested. 

Block EB07: A test is made to determine if the data 
check i/o channel status indicator is on. If it is, a 
branch to serdc (block ecoi), is executed. 

Block EB08: A test is made to determine if the i/o 
operation was a read instruction. If it was, a branch to 
block ebi6 is executed. 

Block EB09: The zero length record message, 
"20117 zlr," is moved to the console message field, serfld. 
This message indicates that the first character in the 
core storage area used for a write operation was a 
group mark/word mark. This condition sets the wlr 
indicator which caused the entry to the error routine. 
A branch to serhlt ( block ebis ) is executed. 

Block EBIO, $ERNR: (Entry from block ebos.) The 
not-ready message, "10100 nr," is moved to the console 
message field (serfld). 

Block EB11: If a word mark exists at $ernr+13, a 
branch is executed to block ebi2. If not, control goes to 
block EB13. The word mark over the branch operation 
acts as a 1-time switch and prevents multiple print-outs 
of the not ready message. 

Block EB12: The contents of serfld ( not-ready mes- 
sage) are typed on the console printer. 

Block EB13: The word mark at sernr +13 is cleared 
to prevent typing multiple not ready messages. A 
branch to sjug (block EA22) is executed. 

Block EB14, $EREF: The address of seoru (address 
of end of reel routine ) is stored in serad. The contents 
of serad may be used by the error routine to initialize 
linkage for exceptional conditions (wlr or eof). 



Block EB15: A test is made to determine if the eof 
condition was tested by the Channel ba or bex instruc- 
tion. If it was, the error routine must set up linkage 
for the eof exceptional condition and control goes to 
serdly ( block ebso ) . If eof was not tested, it indicates 
the main program treats this condition and control goes 

tO SERLV ( block EB26 ) . 

Block EB16: A test is made to determine if the read 
operation, which is generating wlr checks, has been 
retried ten times. If it has not, control goes to serdc 
for another attempt at correcting it. If it has been 
retried ten times, it is considered by iocs to be un- 
correctable and control goes to block ebit to initialize 
the exceptional condition linkage for the wlr condition. 

Block EB17: The file reference address (address of 
the file name label) is moved to serad. A +33 is sub- 
tracted from the contents of serad to set up linkage 
to the user's wrong-length-record routine. Control goes 
to serdly ( block EB30 ) . 

Block EB18, $ERHLT: The contents of serfld (con- 
sole message) are typed out on the console printer. 
The message can indicate a label read error, zero length 
record, or data check on read. A wait loop is entered, 
allowing the operator to select an option and enter it 
through the console printer. After the option is entered, 
control passes to block eb20. 

Block EB20: The first character of the option entry 
(content of the high-order location of sreply) is 
moved to the d-modifier position of a bce instruction. 
This initializes the option test instruction. 

Block EB21: The option test instruction is a bce 
which compares the contents of a location in the 
seroptn field to the d-modifier set by block EB20. 

The contents of the seroptn field (six characters) 
are modified by the diocs read error entry in the fol- 
lowing manner: 



diocs readehror Entry 



seroptn Field 



No entry — no * scan or dump routines generated @bbSRPb@ 

SCAN — no dump routine generated @b*SRPb@ 

TAPE, CU - no * scan routine generated @DbSRPD@ 

SCAN, TAPE, CU - both generated @D*SRPb@ 

The character at seroptn- 1 is compared to P. If this 
d-modifier is a P, iocs ignores the error and control 
goes to serlv ( block eb26 ) to exit the error routine. 

Block EB22: If the d-modifier is an R, iocs will 
again attempt to execute the 1/0 operation and control 
goes to serdc (block ecoi). 

Block EB23: If the d-modifier is an S, iocs will ignore 
the 1/0 operation in error and will read in the next 
record or block of records. Control goes to sjug ( block 

EA22 ) . 

Block EB24: If the d-modifier is an asterisk and scan 
has been specified in the diocs readerror entry, iocs 
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will type out the location(s) of the asterisk(s) in the 
record. Control goes to serscn (block EC3i). 

Block EB25: If the d-modifier is a D and a dump 
tape has been specified in the diocs beaderror entry, 
iocs will write the record in error on the specified 
dump tape. Control then goes to $erdmp-19 (block 
EC23). If none of the option branches are taken, control 
goes to serhlt (block EBis) to notify the operator 
that another option must be selected. 

Blocks EB26, $ERLV and EB27: If the error routine 
saves the 1411 status indicators they are restored be- 
fore exiting from the routine. A branch to $erex ( block 
EB29) is executed. 

Block EB29, $EREX: The I-address of the branch 
at serex is normally that address which had been set 
at block eaokserror). If, however, an exceptional con- 
dition ( wlr or eof ) exists for a one-area tape file, the 
I-address is the file reference address (address of 
file name) minus seven. The branch is executed. 

Block EB30, $ERDLY: The I-address of the branch 
at serex is moved to the I-address of the branch instruc- 
tion at serex + 7. The A-address of a move instruction 
labeled serfa is incremented by 18. 

Block EB31, $ERFA: A move instruction, initialized 
by blocks EA19 and EB30, moves the contents of the file 
reference address + 18 ( address of serex + 5 for a one- 
area file or the address of $--trig+5 for a two-area file) 
to the C-address of a sbr instruction executed in block 

EB33. 

Block EB32: The contents of serad ( address of seoru 
for eof condition or the file reference address —33 
for wlr condition) are moved to the I-address of a 
branch located at file reference address — 7. 

Block EB33: The file reference address —7 is stored 
in the address set by block EB31. 

Block EB34: The address of the nop, preceding a 
one-area tape file i/o instruction, is moved to the I- 
address of a branch instruction located at sebex + 14. 

Block EB35: A test is made to determine if the i/o 
instruction was a read operation. If it was, control goes 

to SEBLV (block EB26). 

Block EB36: The i/o channel status test instruction, 
executed at block EB37, is initialized to check channel. 

Block EB37: This block is entered if the i/o instruc- 
tion was a write operation and the eof i/o condition 
exists. A test is made to determine if the data check 
i/o channel status indicator is on. If it is, the record 
just written on tape is in error and control goes to 
serdc (block ecoi) to attempt to correct it. If it is not, 
control goes to the error routine exit coding at seblv 

(block EB26). 

Tape Error Routine — Part 3 

Block ECOI, $ERDC: A test is made to determine if 
the i/o instruction is a write tape mark operation. If 



it is, the noise record sequence starting at block EC02 
is bypassed and control goes to $erh+7 (block ecos) 
to initialize for a re-execute attempt or to type a con- 
sole message and enter a wait loop for operator action. 

Block EC02: The 5-character starting address of the 
i/o area, specified by the i/o instruction, is placed in 
$erfld + 14 through $erfld + 18. This operation initializes 
the asterisk scan routine. 

Block EC03: The starting address of the i/o area is 
placed in the B-address of a write instruction at serda 
(block EC27). This initializes the dump routine to 
write the record, or block of records, in error, on the 
specified dump tape (specified by diocs readerrob 

ENTBY ) . 

Block EC04: The starting address of the i/o area is 
placed in sebbl. This initializes the noise length record 
test. 

Block EC05: The contents of sebnois (contents of 
E- or F-register as set by block eb03) are subtracted 
from the contents of sebbl ( the starting address of the 
i/o area ) . The contents of serbl, after the subtract in- 
struction is executed, is a negative number equal to 
the number of characters read into core plus one. 

Block EC06: This block exists only for a non-over- 
lapped iocs assembly. The noise record test is by- 
passed on a non-overlapped write tape operation as 
sernois is not initialized for a noise record test. 

Block EC07: The contents of serbl are compared to 
— 13. If the number of characters read is 13 or more, 
the high compare indicator is set. A branch high is 
executed; if the branch is taken, iocs does not con- 
sider the record a noise record and control goes to 
sebh+7 (block EC08). If the number of characters read 
is 12 or less, iocs considers the record a noise record 
and control passes to block ecos. 

Block EC08, $ERH+7: The contents of sebbl are 
incremented by 1, making it equal to the number of 
characters read into core. The record length ( contents 
of sebbl) is included in the typing of read data check 
messages. The retry counter cserct) is incremented by 
1 to accumulate the number of executions of the i/o 
instruction. 

Block EC09: A test is made to determine if the retry 
counter is equal to 20. If it is, it indicates that the i/o 
operation was executed 20 times in an attempt to cor- 
rect the error but the failure still exists, and control 
goes to serctl ( block EC38 ) . 

Block EC10: The X-control field of the i/o instruc- 
tion is moved to the X-control field of the skip and 
blank instruction at sersk (block ecis). The X-control 
field of the i/o instruction is moved to the X-control 
field of the backspace instruction (block ecu). This 
initializes the instructions for execution on the proper 
channel and unit. 
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Block ECU: The backspace instruction (initialized 
by block ecio) is executed. 

Block EC12: The branch any instruction, executed 
in block EC13, is initialized to check the proper channel. 

Block EC13: A branch any instruction is executed. 
It is primarily to satisfy the i/o channel status test re- 
quirements since, at this point in the error routine, no 
i/o channel status indicators should be on. If the branch 
is taken, an attempt is made to re-execute the back- 
space and control passes to block ecu. 

Block EC14: If a word mark does not exist at sersk 
( block EC15 ) , the skip and blank instruction is bypassed 
and control goes to block EC16. 

Block EC15, $ERSK: A skip and blank instruction, 
initialized by block ecio, is executed. 

Block EC 16, $ERCHOP: The branch any instruction 
at block EC17 is initialized to check the proper channel. 

Block EC 17: A branch any instruction is executed. 
If the branch is taken, control returns to sersk ( block 
ecio ) to re-execute the skip instruction. The instruction 
satisfies the i/o channel status test. 

Block EC 18: A word mark is set at sersk (block 
EC15). This sets the one-time switch (block ecu) off 
to allow the execution of the skip instruction on addi- 
tional re-execute passes. Control goes to sjug (block 

EA22 ) . 

Block EC19: The noise record count, $erct-2, is in- 
cremented by 1 to accumulate the number of consecu- 
tive noise records. 

Block EC20: A test is made to determine if ten con- 
secutive noise length records have been read. If not, 
control goes to sjug (block EA22) to re-execute the 1/0 
instruction. 

Block EC21: The noise record counter, $erct-2, is 
set to zero. 

Block EC22: A noise length record message is moved 
to the console message area, serfld. Control goes to 

$ERH ( block EC4l). 

Block 23, $ERDMP-19: This block is entered from 
block eb25 (dump option). The data check message, 
"60113 dck," is moved to the console message field, 
serfld. The message indicates that the record in error 
was read 20 times without success. A waiting loop was 
entered after typing a read data check message, and 
the operator specified the dump option. Control goes to 

block EC25. 

Block EC24, $ERDMP: This block is entered only if 
the operand of the diocs readerror entry is tape.cu. 
The contents of the console message field, serfld, are 
changed from "60113 dck" to "10113 dck." The new 
message indicates the writing of the error record on 
the dump tape is the result of the diocs specifications 
and not because of operator action. 



Block EC25: A write tape instruction is executed on 
the channel and unit specified by the diocs readerror 
entry. The data written are the contents of the console 
message field, serfld. 

Block EC26: A branch any is executed to the next 
sequential instruction. This satisfies the 1/0 channel 
status test requirements. 

Block EC27, $ERDA: A write tape instruction is exe- 
cuted on the channel and unit specified by the diocs 
readerror entry. The record in error is written on 
the dump tape. 

Block EC28: A branch any is executed to the next 
sequential instruction. This satisfies the 1/0 channel 
status test requirements. 

Block EC29: A test is made to determine if the 
character at seroptn is a blank. If it is, it indi- 
cates that the dump routine was entered via the 
option test sequence; iocs will retype the initial error 
message and allow the operator to select another 
option. Control, in this case, goes to serctl (block 
EC38). If it is not a blank, it indicates that iocs has 
automatically written the record in error on the diocs 
specified dump tape and control passes to block EC30 
to type out an auto-dump data check message. 

Block EC30: The contents of the console message 
field ( auto-dump message ) are typed out. Control goes 
to sjug (block EA22) to read the next record. 

Block EC31, $ERSCN: This sequence of coding does 
not exist if the diocs readerror entry does not specify 
scan. It is entered from the option test sequence 
(block eb24) if the operator selects the *scan option. 

Word marks are set in serfld to facilitate the move 
instructions used in the routine. 

Block EC32: A move instruction is executed which 
places the starting address of the 1/0 area (contents 
of $erfld+14 through $erfld+18) in the B-address of 
a bce instruction at block EC33. The starting address of 
the 1/0 area was placed in serfld +14 through serfld +18 
by a move instruction at block EC02. 

Block EC33: A test is made to determine if the loca- 
tion specified by the B-address of the bce instruction 
(character under test) contains an asterisk. If it does, 
control goes to block EC34. If it does not, control goes 

to block EC36. 

Block EC34, $ERPA: The console message field is 
set to five characters in length. The location of the 
asterisk is moved to the console message. 

Block EC35: The location of the asterisk is typed 
by the console printer. 

Block EC36: The B-address of the bce instruction 
is incremented by +1. This initializes the bce to test 
the next location. The record length field ($erfld+25> 
is decremented by one. The record length was placed 
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in $erfld+21 through $ebfld+25 by a move instruction 
at block EC43. 

Block EC37: A test is made to determine if the sub- 
tract instruction executed in block EC36 turned on the 
zero balance indicator. If it did, it indicates that all 
characters were tested and control passes to $erctl 
(block EC38). If the zero balance indicator is not on, 
control returns to block EC33 to test another character. 

Block EC38, $ERCTL: The retry counter (serct) 
is set to zero. 

Block EC39: A test is made to determine if the i/o 
operation was a read instruction. If it was, control goes 

tO block EC43. 

Block EC40: "20114 dck" is moved to the console 
message field, serfld. This message indicates a data 
check on a write tape or write tape mark operation, 
iocs first backspaced the tape and attempted to rewrite 
it but the error persisted. A backspace-skip-rewrite 
sequence was executed 18 times but the record could 
not be written successfully. 

Block EC41, $ERH: A branch is executed to shalt. 
The message in the console message field, serfld, is 
typed and a wait loop is entered to allow operator 
action. The only option available is to retry the opera- 
tion. When the operator selects the option, control goes 

tO SERH + 7 ( block EC08 ) . 

Block EC43: The contents of serbl (record length) 
are moved to the console message ($erfld + 25). This is 
initialization for the asterisk scan routine. The record 
length is included in the typing of the read data check 
message. 

Block EC44: "40119 lre" is moved to the console mes- 
sage, serfld. This message indicates that the error 
occurred while reading a label. 

Block EC45, $ERQLB: A test is made to determine 
if the 1/0 operation in error was a label read. If it was, 
control goes to $erhlt ( block EB18 ) to type the label 
read message. 

Block EC46: "60113 dck" is moved to the console mes- 
sage field, serfld. The message indicates a tape read 
error, iocs has attempted to read the record success- 
fully 20 times but the error persists. 

Block EC47: A test is made to determine if iocs is to 
automatically write the error record on the Diocs-speci- 
fied dump tape. If it is, control goes to serdmp. Other- 
wise, control goes to serhlt (block ebis) where the 
contents of the console message field, serfld, are typed 
and a wait loop is entered, allowing operator inter- 
vention. 



Unit Record Error Routine 

Block ED01, $URERR: The contents of the reregis- 
ter are stored in the I-address of a branch instruction at 



surexit ( block ED34 ) . This initializes the routine's exit. 
The contents of the B-register are stored in the B-ad- 
dress of a compare instruction at surqe (block ED27). 
This initializes a test made in the reader eof sequence 
of the error routine. 

Block ED02: The contents of the B-register are decre- 
mented by +7 to obtain the op-code address of the 
Channel ba or bex instruction (the instruction which 
branched to the error routine). This address is stored 
in the A-address of a move instruction at surpkup 
( block edOo ) . 

Block ED03, $URENT: A message switch is set on 
by setting a word mark at $urnr+13 (op-code address 
of a branch to snote at block ED29 ) . The switch is used 
to prevent multiple print-outs of the not ready message. 

Block ED04: An area is set up for the re-execution of 
the 1/0 instruction. The instruction may be of a 2- or 
10-character format. 



v ■ 1 

Nxxxxxxxxxx 






■NOP($URBAN -11) 

- 10-character I/O instruction 

-$URBAN -1 
2-character I/O instruction 



Block ED05, $URPKUP: The move instruction, ini- 
tialized in block edo2, is executed. It moves the opera- 
tion code of the Channel ba or bex instruction to the 
operation code location of the ba instruction at surban 
( block ED33 ) to check the proper channel. The 1/0 in- 
struction is moved right-to-left to the re-execute area 
at surban- 11 ( block ED32 ) . 

Block ED06, $URANY: The bcb instruction at block 
ED07 is initialized to check the proper channel. 

Block ED07: A test is made to determine if the unit 
was busy at the time the 1/0 instruction was attempted. 
If it was, control goes to surban- 11 (block ED32) to 
re-execute the 1/0 instruction. 

Block ED08: The bex instruction at block ED09 is 
initialized to check the proper channel. 

Block ED09: A test is made to determine if any 1/0 
channel status indicator (excluding wlr) is on. If an 
indicator is on, the load mode test at block edio is by- 
passed and control goes to block edii via a bxpa in- 
struction. 

Block ED10: A test is made to determine if the 1/0 
instruction is a 10-character instruction executed in 
load mode. If it is, control goes to surexit ( block ED34 ) 
to exit from the routine since wrong length records 
occurring in load mode have little significance. 

Block ED11: Channel 1 is cleared of the 1/0 opera- 
tion and control passes to block edi2. 
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Block ED12: A wrong length record message, "20114 
wlr," and the 1/0 instruction are moved to the console 
message field, serfld. 

Blocks ED13, ED14: A test is made to determine if 
the 1/0 instruction is 10 characters in length. If it is not, 
it must be a 2-character instruction and the message in 
the console message field, serfld is shifted 8 places to 
the left so that the message is left justified in serfld. 

Block ED15: The bwl instruction at block edi6 is 
initialized to check the proper channel. 

Block ED16: A test is made to determine if the 
wrong length record 1/0 channel status indicator is on. 
If it is, control goes to surty (block ED35) where a 
wrong length record message is typed out and a wait 
loop is entered to enable operator action. 

Block ED17: A data check message, "20116 dck," is 
moved to the console message field, serfld. 

Block ED18: The ber instruction at block ED19 is ini- 
tialized to check the proper channel. 

Block ED19: A test is made to determine if the data 
check 1/0 channel status indicator is on. If it is, control 

goes to SURDCK ( block ED37 ) . 

Block ED20: A message, "20143 stk," indicating a pro- 
gramming error, is moved to the console message field, 
serfld. 

Block ED21: The bnt instruction at block ED22 is 
initialized to check the proper channel. 

Block ED22: A test is made to determine if the no 
transfer 1/0 channel status indicator is on. If it is, it 
indicates a programming error in the object program, 
and control goes to surty to type the program error 
message and enter a wait loop for operator action. 

Block ED23: The bnr instruction at ED24 is initialized 
to check the proper channel. 

Block ED24: A test is made to determine if the not- 
ready 1/0 channel status indicator is on. If it is, the unit 
is not ready and control goes to surnr (block ed28). 
If it is ready, the 1/0 channel status indicator which 
caused this entry to the error routine is the 1/0 condi- 
tion indicator since at this point all others are off. 

Block ED25: A message, "20115 llc," indicating that 
the last line printed or the last card punched contained 
an error, is moved to the console message field, serfld. 

Block ED26: A test is made to determine if the 1/0 
instruction is a 10-character print or punch instruction. 
If it is, control goes to surty (block ed35) to type the 
message assembled in block ED25 and enter a wait loop 
for operator action. 

Block ED27, $URQE: A test is made to determine if 
the Channel ba or bex instruction is followed sequen- 
tially by a bex instruction on the same channel. If it is, 
iocs assumes that the user checks for eof on the reader 
and control goes to surexit (block ed34) to exit the 
routine. 



Block ED28, $URNR: This block is entered if the 
unit is not ready or if the reader is at eof and the user 
does not test it. A not-ready message is moved to the 
console message field, serfld. 

Block ED29, $URNR+13: If a word mark is in loca- 
tion surnr +13, it indicates that this is the first attempt 
to type-out the not ready message and control passes 
to block ED30. If the word mark does not exist, it indi- 
cates that the message has been typed once for this 
condition and the write console printer routine is by- 
passed to prevent multiple type-outs of the not ready 
message. Control goes to block ED31. 

Block ED30: The not ready message, "10100 nr," is 
typed by the console printer. 

Block ED31: The word mark at surnr +13 is cleared 
and control goes to $urban-h to re-attempt the execu- 
tion of the 1/0 instruction. A loop in the error routine 
exists until the device is made ready, at which time the 
1/0 instruction is executed. 

Block ED32, $URBAN-11: An attempt is made to 
execute the 1/0 instruction. 

Block ED33, $URBAN: A test is made to determine 
if any 1/0 channel status indicators are on. If none are 
on, the operation has been performed successfully and 
control passes to surexit ( block ED34 ) to exit from the 
routine. If any are on, control returns to surany (block 
edo6 ) to determine which 1/0 condition exists and take 
appropriate action. 

Block ED34, $UREX1T: A branch is executed to the 
location set by block edoi. 

Block ED35, $URTY: The message switch is set on 
(sw at surnr +13) so that a not ready message may be 
printed, if that condition exists, after the operator re- 
turns control to the error routine. 

Block ED36: The contents of the console message 
field, serfld, are typed out. A wait loop is entered until 
the operator requests the option of a re-execution of the 
1/0 instruction. He does this by first pressing the inquiry 
request key and then the inquiry release key. No 
code word is necessary. Control goes to $urban-h 

( block ED32). 

Block ED37, $URDCK: This block is entered after 
it is determined that the data check 1/0 channel status 
indicator is on. If the data check occurred on a card 
read operation, control returns to surty (block ED35) 
to type a data check message and enter a wait loop for 
operator action. 

Blocks ED38 and ED39: A + 1 is added to a counter 
and a test is made to determine if the count is odd 
or even. If odd, it indicates that an attempt has not 
been made to correct the data check and control goes 
to surban-h (block ED32) to re-execute the instruction. 
If even, it indicates the operation has been tried twice 
and is still in error and control goes to surty (block 
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ED35 ) to type a data check message and enter a wait Block ED42: The operation code of the test instruc- 

loop for operator action. tion at sueban (block ED33) is moved to the operation 

Block ED40, $URCHOP: The contents of the B- code position of the instruction indicated by the B- 

register are stored in the B-address of the move instruc- register, 
tion executed in block ED42. 

Block ED41: The contents of the B-register are stored Block ED43: An exit is made to the location set by 

in the exit. block ED40. 
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EA 



•ERROR X 01 
»ftft»»At*«******** 
*S8R IN SERtX+5 * 

* (BLOCK EB29) * 

* DECREMENT THE * 
•B-ADDR REG BY 1* 
•SBR IN SERENT+5* 



SERENT X 02 
»*»**B1********** 
•MOVE CHANNEL BA* 
•OR BEX INST TO * 

• SER8A (EA23). • 
•SAR IN SERPU+5 * 

* (BLOCK EA04) * 



»«»»»C 1 ****»*•»«• 

» CLEAR WM IN * 
•SJUG {A SET UP • 
•FOR INSTRUCTION* 
• LENGTH TEST) • 



SERPU X 

ic**tDl«*»*«*t 

• MOVE INST TO 

• SJUG (EA22) 

• SAR IN SERPU+ 

• (SET MOVE TO 
•GET NEXT INST 



»***• 



***** 



5 * 

* 
> * 



•INSTRUCTION* 

AT SJUG TEN 

• CHARS IN * 

•LENGTH * 



SER10 X 10 
#»*##F !***»**»**• 
» SET CONSOLE * 

• MESSAGE AREA * 

• TO TWENTY-ONE • 

• CHARACTERS IN * 
•LENGTH (SERFLD>» 
»*«ft»»»»ft*»»»*»*ft 



X 11 
»»»ft»Gl»»»»#*»#»* 

• MOVE TEN CHAR * 
•I/O INSTRUCTION* 

• TO CON-SOLE MSG * 
•FIELO (SERFLD) * 

• * 
•»*»»»** *«»*»»ft»» 



HI « • 1 
* DOES * 

* INTERRUPT * 
ROUTINE SAVE 

* THE 1411 • 
•STATUS * 



•INSTRUCTION* 
.X* AT SJUG FIVE 
* CHARS IN • 
•LENGTH * 



X 07 

»»ft»#E2»*»***»**« 

• SHIFT INST IN • 
•RE-EXECUTE AREA* 

• (SJUG) FIVE » 

• CHARACTERS TO • 

• THE LEFT • 
*»»*»*■»*»*»»»»*»* 



**»**F2********** 
» SET CONSOLE * 

• MESSAGE AREA • 

• TO FIFTEEN * 

• CHARACTERS IN • 
•LENGTH ($ERFLD)» 



**«**G2** ••***••* 

•MOVE FIVE CHAR • 
•I/O INSTRUCTION* 
•TO CONSOLE MSG • 
•FIELD (SERFLD) * 



»*«»• 



**»**«ft» 



SAVE ZERO BAL 
AND COMPARE 
INDICATORS 

»■****»»**»*»*»» 



• MOVE FILE'S * 
•CHANNEL ♦ UNIT * 

• TO SARG • 

• • 
**ft*»ft»*«*»»*««ft« 



X 15 

•»*«*K2********** 

* SEARCH TABLE * 
*(SCU) FOR SARG • 
•TO GET FILE REF«. 

• ADOR ( ADOR OF • 
•FILENAME LABEL)* 
»»*■»*-» #*ftft**»»»*» 



16 

*»»»»A3**»»**»»»« 

•ZERO NOISE RCD • 

•COUNT (SERCT-2)* 

X*AND ZERO RETRY • 

* COUNT (SERCT) • 

* COUNTS 



*»ft» 



■#»»«# 



X 17 

**#*»B3**»******* 
•MOVE I ADDR OF • 
•BRANCH AT $EREX» 
•TO B ADO OF BC£» 
• AT SERGLB UNIT* 
•LABEL READ TST ) • 



X 18 
**«»*C3**« •»»»•»• 

•SET 1ST TIME SW* 
*0N(EB11 ♦ EC14>» 

* SET BRANCH AT * 
•SERBA TO GO TO * 

* BLOCK EA19 * 



X 19 
»****D3»»**»#«*** 

• MOVE FILE REF » 
*ADDR TO A ADDR • 

• OF MOVE AT »X 

• SERFA (SET UP * 
•FOR WLR OR EOR>* 



■»—«— ft— *—*—» — »—»—» 
•SET BCB AT EA21* 
» TO CHECK THE • 
•PROPER CHANNEL * 

«»»««»»«»»»* ft* ft*« 



SERCHOP X 36 

* ft * ft * A 5* »*ft»ft**»« 

* S8R IN 8 ADDR • 
•OF MOVE INST AT* 

* BLOCK EA37 » 
» SBR IN EXIT » 

* (BLOCK EA3B) * 
»»ftft»*»***»*»»*** 



X 37 
*»»»*B5* •••••*•«« 
•MOVE OP. CODE OF* 

* CHANNEL BA OR • 
•BEX INST TO LOC» 

* SET BY * 

* BLOCK EA36 * 
•*»»»»»»*»*»**»** 





X 


3fl 


* 


t***C5 ****•••••• 


* 


EXIT 


TO 


ft 


ft 


LOCATION 


• 


* 


SET 


BY 


« 


* 


BLOCK 


EA36 


» 



«ftft**»ft«*ft«ft***»ft 



* CHANNEL • 

BA OR BEX 
•INSTRUCTION* 



ft ft »F4» •**•**• 



-*-ft-ft~*-ft-« 



•X»SET BA AT EA25 

• TO CHECK * 

* PROPER CHAN • 
*ftft**»«**ftft**ft«»> 



* BRANCH ANY 



ft • 

•EA * 
» F4* 

• *••• 



• WHICH CHANNEL *. 



X 27 

*ftft*«H3* ••<•••••* 
•MOVE I ADDR OF * 
•BRANCH AT SEREX* 
* TO I ADDR OF » 
•BRANCH AT SWTGX* 
•(SAVE CH2 RTRN)* 



BOL1 

OR 
B0PR1 



SLMWTGR X 29 
ft*«ftftK 3» »*••••••* 

* SUBTRACT +7 • 
•FROM SWTGX+5 TO* 
•GET ADDRESS OF *. 
•CHAN BA OR BEX * 

* INSTRUCTION * 



**»** 

• £B * 

• Al» 



30 

ft »***H4 »»»»•***»* 
•SAVE I ADDR OF * 

* BRANCH AT • 
X» SCS1SFX • 

•(LINKAGE TO CHI* 

• FORCED FILE) » 



•CLEAR CHANNEL 1 *X 

• FOR CONSOLE * 

• PRINTER USE • 
*••**•••••■••*••• 



ft»ft«»K4« ••••••••• 

« RESTORE • 

• LINKAGE « 

* SAVED •• 



* DOES » 
* INTERRUPT * 
ROUTINC SAVE 
•141 1 STATUS* 



* RESTORE ZERO • 

* BALANCE AND • 
•COMPARE STATUS * 
•*•••*•••*••»•*•« 



SWTGX 35 

**ft»*K5********** 

* RE-ENTER THE * 
•TAPE ERROR RTNE» 

...X»VIA THE CHANNEL* 

* TWO 8A OR BEX • 
» INSTRUCTION • 
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. SERROR 
X 
*•*• 
ft • 

* Al * 

• * 
• *•» 
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EB 



***** 
*EB * 
* A4* 



#-.*—*—#—*-.».-*_»_» 
•SET 8NR AT EB02* 
•TO CHECK PROPER* 
• CHANNEL * 
***••**•*•******* 



R 10 

*»**A2»»*******« 

MOVE • 

-10100 NR- * 

TO CONSOLE • 

MESSAGE • 

< SERFLO) * 

ft*************** 



SERHLT 

*****A3» 
•SHALT 



MESSAGE AND 

WAIT LOOP 

ROUTINE 

************* 



* DOES » 
• INTERRUPT * 
ROUTINE SAVE 
•1411 STATUS* 



.SERDLY X 

*****A5****«»* 

•MOVE SEREX+5 
*S£*£X+12 ADD 
•TO -A- ADDRES 

* OF MOVE AT 

• StRFA 
************** 



Bl * • 

• • 

NOT READY 



•SERNR+I3 



FIRST TIME 



***B4******* 



* RESTORE ZERO 

• BALANCE AND 
•COMPARE STATUS 



■SERFA X 31 

*****Q5********** 

• MOVE CONTENTS • 

• OF FRA+18 TO * 
•-C- ADDRESS OF » 

• AN SBR AT * 
EB33 



****** 



***** 



Cl * * 02.1 
* * 
• • YES 

» NON-OVERLAP *. 



• TYPEOUT 

• NOT READY 

• MESSAGE 

************** 



*<***C3********* 

* MOVE CONTENTS 
» OF HIGH ORDER 

* LOC OF SREPLY 
•TO OPTION TEST 

* INSTRUCTION 
**************** 



. SEREX X 

*****C4******« 
• EXIT TO FRA- 
•IF WLR. EOF. i 
•EOR AND 1-ARE. 
•FILE. OTHERWI 
•AS SET BY EAO 
************** 



*****CS ********* 

* MOVE CONTENTS 

• OF SERAD TO 
•UTILITY BRANCH 

• AT FILE REF 

* ADDRESS-7 
**************** 



• *,***D1 ********** 
•SER IN SERN0I5 • 
» IF CHANNEL 1 • 

• * 
•SFR IN SERNOIS • 

• IF CHANNEL 2 * 
****************** 



*****D2********** 

* * 

* SET « 
•NOT FIRST TIME * 

* AT BLOCK EB1 1 * 

***************** 



D3 * • 2 
* * 
* * 

* CHARACTER IS 



*****D5 •**•••*•» 
•SBR IN ADDRESS 

• INDICATED BY 

• CONTENTS OF 

• FILE REF 
ADDRESS+18 



******* 



■**» 



•SET BEF AT EB05» 
•TO CHECK PROPER* 
• CHANNEL * 

*-*,» *•*••<•******* 



***** 

•EA • 
• F4* 



* CHARACTER IS 



***** 

• EC • 

• Al* 



*****E5*******#* 

* MOVE LOCATION 

* OF I/O INST 

* MINUS I TO 
•-I- ADDRESS OF 

* SERfcX+14 
**************** 



BRANCH EOF 



SEREF 

*****P2*»*»**« 
• STORE 
« ADDRESS OF 
...X» SEORU IN 
» SERAD 



******** 



******** 



CHARACTER IS 



•SET BER AT EB07« 
•TO CHECK PROPER* 
• CHANNEL * 

**#»»•*••******** 



G2 * » . 

• WAS » 
•BEF TESTED 

BY CHANNEL 
• BA OR 

• BEX • 



» CHARACTER IS 



•SET BER AT EB37» 
•TO CHECK PROPER* 
* CHANNEL • 



DATA CHECK 



Jl « • 08 



...» CHARACTER IS 



***** 

• EC * 

• A4* 



SERDMP-19 



H5 • » 37 

NO • • 

...» DATA CHECK • 



***** 

• EC » 

* Al* 



•S**K1 ********** 


*****K2********** 


MOVE • 

-20117 ZLR- • 

TO CONSOLE * 

MESSAGE • 

( SERFLO ) • 

*»•********•**•* 


* COMPUTE FILE * 
•REF ADDRESS-33 » 

* IN • 
» SERAD • 

* * 
***************** 


I SERHLT 
X 
**** 


I SERDLY 
X 
• •*• 


* * 




* * 


* A3 * 

* * 




• A5 * 
< * 


<*<* 




**** 
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EC 



WR I TE 
TAPE MARK 
OPERATION 



SERH+7 X 08 
*****A2********** 
•INCREMENT RETRY* 
•COUNTER BY 0N£.» 
...X*INCREMENT SERBL* 
X * BY ONE TO GET * 
» -(REC LENGTH) * 

• NO 



SERDMP X 24 

*****A3********** 
•CHANGE CONSOLE * 

• MESSAGE IN * 
» SERFLD FROM * 
*'601 13 DCK' TO * 

• ' 101 13 DCK" * 
***************** 



IERDMP-19 X 23 
*****A4********** 
*MOVE'60U3 DCK'* 
*T0 CONSOLE MSG * 

* FIELD AT * 

* SERFLD * 



****** 



****** 



SERSCN X 31 
****»A5 ********** 

* SET UP FIELDS * 

* IN SERFLD FOR * 

* CHAR ADDR AND * 

* AREA LENGTH * 

* * 
ft**************** 



*«***B1 * •***«***« 

* PUT STARTING * 

* ZHI-ORD) ADDR * 
•OF I/O AREA IN * 
•SERFLD+14 THRU * 

* SERFLD+18 * 
***************** 



•••B3******** 

•WRITE CONSOLE* 

* MESSAGE ON * 
•DIOCS SPECIFIED* 

* DUMP TAPE » 



***** 



******** 



X 32 

*****B5#********* 

* MOVE STARTING * 

* (HI-ORD) ADDR » 
*0F I/O AREA TO * 

* ASTERISK TEST * 

* INSTRUCTION • 
***************** 



*****C1 ********** 

* PUT STARTING * 

* <HI-ORD> ADDR * 
*0F I/O AREA IN * 

* DUMP ROUTINE * 
•WRITE TAPE INST* 



•**C2«*« 



10 



•MOVE X CTL FLO * 
•OF THE I/O INST* 
* TO X CTL FLDS • 
•OF INSTRUCTIONS* 
*AT LCI 1 + ECI5 * 



C3 • * 
BRANCH ANY 



SERPA 34 

•****C4*»******** 
*SET CONSOLE MSG* 
*FLD (SERFLD) TO* 
•FIVE CHAR. MOVE»X. 
•ADDR OF AST TO • 
•CONSOLE MSG FLD* 
***************** 



YES * ASTERISK * 
....* IN CHARACTER *X. 
* AODRESS * 



X 04 
•****D1 ********** 

* PUT STARTING * 

* (HI-ORD) ADDR * 
*OF I/O AREA IN * 

* *ERBL * 



*••«••* 



**** 



X 05 
*****E1*»* ******* 

* SUBT SERNCIS * 

* FROM SERBL. * 

* ANSWER EQL.ALS * 

* MINUS THE OTY * 
«-(REC LENGTH+1)* 



***D2******** 

BACKSPACE 

* 

************* 



•SET BA AT EC13 • 
•TO CHECK PROPER* 
• CHANNEL • 

***************** 



SERDA. X 27 
"*"* *D 3** ****** 

•WRITE RECORD * 
•IN ERROR ON THE* 
•DIOCS SPECIFIED* 
* DUMP TAPE * 

* * 

************* 



E3 * • 2a 



BRANCH ANY 



X 35 
•***»D4********** 
•SNOTE DHA2* 
*-*-*-*-*-*-*-*-* 

* WRITE CONSOLE *.. 

* PRINTER * 

***************** 

**** 

* * 

* E4 *... 

**** . 
SERCTL X 38 
•***»E4*** ******* 

* ZERO • 
...X*RETRY COUNT AT *X. 

* SERCT * 

* * 

***************** 



X 36 
*****D5********** 

* INCREMENT THE * 
•CHARACTER ADDR * 

X* BY ONE, * 
•DECREMENT AREA * 

* LENGTH BY ONE • 
***************** 



* ALL 
CHARACTERS 

* CHECKED 



Fl * * 

* NON * 
OVERLAP 

WRITE 
TAPE 

* INST * 



F2 * » 13 
• * 
* * YES. 

BRANCH ANY «. 



* AUTO DUMP 



43 
•••*»F5********** 

* MOVE CONTENTS * 

* OF SERBL * 
,X*(RECORD LENGTH)* 

*T0 CONSOLE MSG * 

* AT SERFLD+25 * 
»**•••»•**•*••**• 



* REC * 

• IS LESS • 
* THAN 13 CHARS 

* IN * 

* LENG * 
• * 

* 
-YES 



*****H1 ********** 

* INCREMENT THE * 

* NOISE RECORD * 

* COUNT AT * 

* SERCT-2 BY * 

* PLUS ONE * 
**»**•»**•*••»•** 



NO 


* TEN * 


...» 


CONSECUTIVE * 


a 


* NOISE * 


. 


•RECORDS* 


X 


* * 


***** 


* 


*EA * 


• YES 


* F4* 




• ,* 




* 




SJUG 






X 21 


*****K1********** 


• 


ZERO * 


• 


NOISE * 


* 


RECORD * 


* 


COUNT * 


* 


AT SERCT-2 * 


**##*******«***** 



G2 * * 14 
# * 
N * * 

.* FIRST TIME * 



***H2******** 



*********** 



-X*SET BA AT ECI7 *. 
*T0 CHECK PROPER* 
* CHANNEL * 

***************** 



22 

•**»*K2***** K **** 
*M0VE'201 18 NLR'* 

* TO CONSOLE * 
.X* MESSAGE FIELD * 

* (SERFLD) * 



**********«••** 



*EA * 
• F4* 

* * 

* 

SJUG 



X 40 

*****G4********** 
*M0VE'20I 14 DCK'* 

* TO CONSOLE * 

* MESSAGE FIELD * 

* AT SERFLD * 

* * 
***************** 



* H4 *.X. 

* • • 

**** . 
SERH X 41 

**»»*H4********** 
•SHALT DHA1* 
*—*—«—*—*—*—*—*—* 

* MESSAGE AND * 

* WAIT LOOP « 

* ROUTINE * 
*•***•**•••*•**** 



***** 



***** 



f**» 



.X* BRANCH ANY 



•*»**K3********** 

* • 
•SET FIRST TIME * 
•SWITCH AT EC14 * 

* TO OFF STATUS * 

* * 
***************** 

"sJUG 



*EA * 
* F4* 

* * 



X 44 
*****G5 ********** 

•MOVE'40119 LRE»* 

• TO CONSOLE * 

• MESSAGE FIELD * 

* AT SERFLD * 

* • 
***************** 



H5 * * 45 
* ENTRY * 

•BECAUSE OF » 

LABEL READ * 
* ERROR » 



X 46 

***** J5***»****** 
•MOVE'60113 DCK'* 

* TO CONSOLE * 

* MESSAGE FIELD » 

* AT SERFLD * 



K5 * * 

* * 

AUTO DUMP 



*EB * 


-YES 


SERHLT* A3* 


. SERDMP 


* * 


X 


* 


*<** 




* • 




* A3 * 




* * 




*•** 
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ED 



***** 

*ED « 
* Al* 



SURER R X 01 
•#««*A1 ********** 

•sen IN SUREXIT * 

* (SETS EXIT) * 
•SBR IN SURQE+10* 
«( INITIALIZE EOF* 

• SEQUENCE) * 

**••**•***•* ***** 



*-*_*_*_»-*_*-»_* 

.X*SET BEX AT ED09* 

•TO CHECK PROPER* 

* CHANNEL * 

***************** 



*SET BER AT ED19* 
•TO CHECK PROPER* 
* CHANNEL * 

•*•********•«**** 



• *A5* 



******* 



* SBR IN B AOOR 

* OF MOVE INST 

* EXECUTED IN 

* BLOCK ED42 

**************** 



X 02 
** l ***Bl ********** 

* STORE OP-CODE • 

• ADDR OF CHAN BA* 
•OR BEX INST IN • 

• A AOOR OF MOVE • 

* AT SURPKUP • 
••**••***••*•»*** 



» BRANCH ON * YES 
ANY INDICATOR *. 
* BUT WLR * 



B3 • • 
* * 

* 
* DATA CHECK 



X 41 
*****B 5* ********* 

* SBR IN THE * 
*I ADDRESS OF A * 

* BRANCH INST * 
» EXECUTED IN * 

* BLOCK ED43 * 
**»***•***»*»**** 



C2 • • I 
•10 CHAR» 
YES * I/O INST » 
.* EXECUTED IN 

» LOAD MODE • 



C3 • * 37 



X 42 
•****C 5* ********* 

•MOVE OP-CODE OF* 
•BA AT SURBAN TO* 
•OP-CODE OF THE * 

• BRANCH BEING • 

* INITIALIZED • 
ft**************** 



X 04 
*****01 ********** 
•SET UP AREA FOR* 
•RE-EXECUTION OF* 

• DIFFERENT • 

• LENGTH I/O « 
» INSTRUCTIONS • 



*****D2********** 
•SCS1SFS BAG3« 

*-»_*_*_*_*_*_#_# 

•CLEAR CHAN 1 OF* 

* UNCHECKED I/O * 

* OPERATIONS * 
•ft*************** 



** ***D3« ********* 



***************** 



tt* » **DS ********** 

* * 
» EXIT TO * 
•LOCATION SET BY* 
« BLOCK ED4 1 * 

* * 
***************** 



SURPKUP X 05 

*****e i********** 

•SET 8A (URBAN) • 
•TO CHECK PROPER* 
•CHAN. MOVE I/O * 
•INST TO EXECUTE* 
• AREA (ED32) • 
ft**************** 



SURANY X 06 

**«**F 1 ********** 
•SURCHOP EDA5* 
#-*-•-*-*-*-*-*-* 
•X«SET BCB AT ED07* 
•TO CHECK PROPER* 
• CHANNEL * 
*•***•**•*»•••*** 



X 12 
•«***E2*****«**** 

• MOVE I/O INST • 

• AND '20144 WLR»» 

• TO CONSOLE * 

• MESSAGE FIELD • 

• (SERFLD) • 
**»•*•*•*»••«•*** 



« TEN * YES 
• CHARACTER I/O *. 
•INSTRUCTION* 



•YES 

» ***• 

.•X* HI * 
• » 

***• 
20 
**ft**F3« ********* 
* * 

*M0VE»20143 STK»* 
•TO CONSOLE MSG *X.. 
•FIELD tSERFLD) • 



*-*-*-*-*-*-*-*-* 
.X*SET BNR AT ED24» 
•TO CHECK PROPER* 
• CHANNEL • 
***** •***««****•* 



Gl * * 07 

* * 

• BRANCH « NO 

• CHANNEL *... 

• BUSY * 

• » 
* * 

* 
**** .yes 

• * • 

• HI »,X. 

• * . 
**** . 



************* 



X 14 
*****G2********** 
•SHIFT CONTENTS » 
•OF CONSOLE MSG • 
•FIELD (SERFLD) • 
*8 POSITIONS TO * 
* THE LEFT • 
****** *********** 



X 15 

*»**»H2 *»•****»** 
•SURCHOP EDA5» 
•—*-*-*—*-*-*-*—* 
•SET BWL AT EDt6» 
•TO CHECK PROPER* 
• CHANNEL • 
*****•*•••»•••**• 



X 21 
***»*G3*«* ******* 
•SURCHOP EDA5» 
*-*-*-*-*-*-*-*-* 
•SET BNT AT ED22* 
•TO CHECK PROPER* 
• CHANNEL • 
•***•••***••*•»** 



TRANSFER 

* INDICATOR * 

* ON » 



• YES •MOVE* 10100 NR* 
NOT READY • X«TO CONSOLE MSG 

• X »FIELD (SERFLD) 

- - , 

**************** 



•**»*H4* ********* 

* » 
•MOVE^OllS LLC* 
•TO CONSOLE MSG * 
•FIELD (SERFLD) » 

* * 
******•*•**••**** 



•SURNR+13 



•MESSAGE SWITCH *. 



Jl • • 33 



• •** , 

• * • 

• Kl «.X. 



• WRONG * YES 
LENGTH *.... 

* RECORD * 



PRINT 
OR PUNCH 
OPERATION 



X 30 
***** j 5* **•*»*•** 
•SNOTE DHA2* 
ft-*-*-*-*-*-*—*-* 

* WRITE CONSOLE • 
» PRINTER * 

* • 
•****»***•*••*••* 



• EXIT TO • 
•LOCATION SET BY* 

• BLOCK ED01 • 

• * 

•********.****»*** 

• EXIT 



****»K2 ********** 
* * 

•MOVE •20116DCK»» 
•TO CONSOLE MSG » 
•FIELD (SERFLD) • 



• A3 » 

* * 

*•** 
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*-*-*-*-*-*-*-*-* 

* WRITE CONSOLE * 

* PRINTER AND * 
•ENTER WAIT LOOP» 
••***»*•***•***»* 



SURBAN-1 1 



• CHAN BA • N 
•OR BEX FOLLOWED*. 

* BY A BEX * 
• INST « 



*****KS* ********* 

* • 

* SET * 
•MESSAGE SWITCH • 

• OFF • 

• BLOCK ED29 • 



• SURBAN- 11 
X 

**** 
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Storage Map and Loading Sequence 

The over-all storage requirements of iocs may vary 
considerably from job-to-job, depending on the i/o 
specifications. These specifications determine the start 
of iocs, the presence or absence of certain routines, the 
size of coding blocks within the routines, etc. Figure 6 
shows the order of the iocs routines by storage group 
in low-to-high storage sequence for a typical appli- 
cation. 



If the diocs priority entry of nonoverlay has not 
been specified, the iocs routines are loaded in two dis- 
tinct loads. The storage load sequence is shown in 
Figure 6. 

When the non-overlay option is specified in the diocs, 
the iocs priority assignment routine is needed in stor- 
age during running program time. In this instance, all 
of iocs is loaded along with the main program. 



STORAGE MAP 










ROUTINE » LABEL 


» COMMENTS 


PIVOT FOR RESTART * 


* LOCATIONS 00000 - 00024 


».. .«..« .;«......«.. 


* LOCATIONS 00025 - 00099 


INDEX W OR DS • 


INTERRUPT PIVOT « 


* LOCATIONS 0010 I - 00 1 1 5 

* LOCATIONS 00116 - 00349 


STANDARD AUTOCODER * 


PROCEDURE FOR * 

AUTOMATIC TEST [ NG * 


» LOCATIONS 350 - 00499 


...?.......... 


« LOCATIONS FROM 500 TO 
* OR I G I N 


WHEN IOCS IS QRIGINED » 

ABOVE LOCATION 500. * 
THE LOCATIONS FROM « 
500 TO THE ORIGIN « 
ARE AVAILABLE FOR * 
THE MAIN PROGRAM » 


>••*« *««« ...."«......... 


T » EACH USES APPROXIMATELY 
• 90 LOCAT IONS 


CHANNEL SCHEDULERS * I0CSCS-EN 


* USES APPROXIMATELY 
» 110 LOCATIONS 


CONSOLE INTERRUPT » IQCSC I PR 
SEQUENCE * 


OPEN/CLOSE SUBROUTINE * I0CSCL0P 


■ USES APPRO XI MATELY 
» 300 LOCATIONS 


* USES APPROXIMATELY 

* 125 LOCATIONS 


MESSAGE AND WAIT LOOP » I OC SHALT 
ROUTINE * 


t.**. *»»•■*»«*.**.*»..«**«* »«**♦** 
CONSOLE PRINTER ERROR • IOCSCPERR 
ROUTINE * 

UNIT RECORD ERROR * IOCSURERR 
ROUTINE * 


« USES APPROXIMATtLY 30 
« LOCATIONS 


! * USES APPROXIMATELY 

* 430 LOCATIONS MAXIMUM 


* USES APPROXIMATELY 

* 420 LOCATIONS. IT IS 

» OVERLAYED BY A PORTION 

* OF THE TAPE ERROR 

* ROUT INE IF NON-OVERLAY 
« HAS NOT SEEN SPECIFIED 


PRIORITY ASSIGNMENT * IOCSPAHSK 
ROUTINE # 


* OCCUPIES APPROXIMATELY 

* 600 LOCATIONS 


RESIDENT PORTION OF • 

THE TAPE ERROR * 

ROUTINE » 


....NO*...*..*.*.**...*..*..**...* 


» OCCUPY APPROXIMATELY 
* 500 LOCATIONS 


TAPE OPEN. CLOSE, AND * 

END-OF-REEL ROUTINES * 


>«••*•» *••»** ••»» 


LABEL ROUTINES * * OCCUPY APPROXIMATELY 

» » 900 LOCATIONS 


1ST FILE SCHEDULER * IOCS-ENT 
1ST FILE TABLE » 


* TAPE FILES USE UP TO 
» 300 LOCATIONS 

* UNIT RECORD FILES USE 

* UP TO 150 LOCATIONS 


« TAPE FILES USE UP TO 
« 100 LOCATIONS 


'»«** * 


SUCCEEDING FILE SCHEDULERS 


AND TABLES 



1ST LOAD 

««»»» A S«..». 

•LOAD PROGRA: 



"EXECUTE PROGRAM 
* TO FIRST 

» OPEN MACRO 



* ASSIGN 
"PRIORITIES FOR 

« 2-AREA FILES 



2ND LOAD X 

....♦D5 K »**»*«* 
•LOAD PROGRAM 

•LOAD REMAINDER 

* OF TAPE ERROR 

• ROUTINE 



OPEN FILES 

NAMED IN OPEN 

MACRO 



CONT INUE 
EXECUTION OF 
MAIN PROGRAM 



MAIN PROGRAM 



Figure 6. Storage Map 
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Description of File Reference Table 

Figure 7 illustrates the contents of a maximum file ref- 
erence table. References 1 through 3 in the table are 
exceptional condition vectors; references 4 through 37 
are known collectively as the file table. The structure 
of the table depends on the diocs entries ( e.g., the diocs 
counts entry governs the presence of references 24 and 
25 ) . When an entry is missing, the table is compressed. 
The number of file reference entries generated for each 
tape file is fixed according to the cumulative number 
of different entries for all files. The file type (or area 
indicator for tape), reference 5, is always generated; 
it is the only reference in the table which is fixed and 
not compressed; its location is always file reference 
address + 20; reference 5 is the only reference gener- 
ated for unit record files. 

The file reference tables correspond to an indexed 
label table. The indexed label table is a da relative to 
zero and is referenced by index register 15. iocs can 
process the file reference entries for any given file by 
loading index register 15 with the appropriate file refer- 
ence address and then executing instructions that refer 
to the indexed labels. In Figure 7, each reference 
number is followed by the indexed label, if any. The 
actual prefixed label, if any, follows the indexed label. 

The file reference table provides the information for 
interrogation by the various iocs routines to control 
what procedures are performed. In general, a file refer- 
ence may be modified by the user during program 
execution. Note, however, that the iocs will refer to a 
file reference ( counts excepted ) only during the proc- 
essing of open, close, feorl, and rdlin macros and at 
end-of-reel. In some instances, to make a change effec- 



tive, the file must be reopened. Some general comments 
follow to indicate which references may be changed. 

References 1-3: The exceptional condition vectors 
may not be changed due to the structure of the file 
scheduler. 

Reference 4: Priority may be changed only if the 
diocs priority is nonoverlay. 

Reference 5: File type ( or number of areas for tape ) 
may not be changed due to the structure of the file 
scheduler. 

Reference 6: May not be changed. 

Reference 7: May be changed. In most cases, the file 
should be reopened. 

Reference 8: May be changed. 

Reference 9: iocs linkage. May not be changed. 

Reference 10: Input — May be changed. Output — 
May be changed to $clsab to prevent padding for a 
fixed, blocked file. The user must move a group mark/ 
word mark to terminate a short block himself. 

References 11-16: These label fields can be changed 
by programming and/or rdlin cards. 

Reference 17: May be changed to effect or skip label 
processing for a given reel. 

Reference 18: May not be changed. 

Reference 19: May be changed only in conjunction 
with references 7 and 8. The file may have to be re- 
opened. 

References 20-22: May be changed. 

References 23-25: May be changed; however, it may 
cause a count discrepancy. 

References 26-37: The exit indicators and/or exit 
addresses may be changed. 
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ftftftftftftftft ftftftft 



#•#» ftftftftftftftft ftftftftftftftft* ••»»»«»»»» ft ftftftftftftftft* »»»»»»» ftftftftftftftft* ft ftftftft «»»«»»»«*»«« *»»*»« *«**»«»»«»■»»»«»**» 

• REF» 1N0EXEC. ACTUAL . CP - ' . FILE . KIND OF .NC . 

» NO . LABEL • LABEL . COCE. OPERAND . TVPE . INDICATOR .PCS . DESCRIPTION OF INDICATOR AND COOES IF ANY 
»»•»»»»»•»«»««•»#•«*»»»»«»*»■»»»»»«#»»«»«**»«***«»#»#*«»**»*«««»**■»»"*«*•*«****»»**«««***»*»*»»****»******»***»***** 

• •• . . . . •■ 

• | . . . E SEREX+7 • 1-AREA • VECTOR .7 . LINKACE PIVCT TO SCHEDULER FOR INPUT EOR 



• 
* 
• 


2 


" 


spekswe! 






; 




• 


SEREX+14 
$ WTG 


• 


I-AREA 
2-AREA 


I 


VECTOR 
VECTOR 


• 


7 


; 


LINKAGE PIVOT TO SCHEDULER FOR OUTPUT EOR 


* 


• 

ft 
• 


3 


• 


strigenC 






• 


CC* 


• 


IEREX+5 
* TRIG* 


• 


1-AREA 
2-AREA 


• 


VECTOR 
VECTOR 


. 


5 


• 


LINKAGE CONSTANT USED BY ERROR ROUTINE FOR WLR AND EOR* 


* 
• 


4 


1 




; 






'. 




'. 


N. 


'. 




I 


PRIORITY 


• 


1 


; 


N= 0-9 IN HIGF TO LOW PRIORITY ORDER 




* 
ft 
• 

* 
• 


5 


• 


•otfactC 


t- 


-ACT 


': 




': 


*N' 


• 


TAPE 
UR 


* 


NUMBER OF AREAS 
FILE TVPE 


• 


1 


\ 


1= 1-AREA FILE. 2= 2-AREA FILE 

3= HEADER FILE, 4= PUNCH FILE. 5= PRINTER FILE 


* 


6 


I 




'. 






'. 


cc» 


• 


■ • 


I 




• 




; 


2 


I 


0= OPEN. ELANK= CLOSED (TAPE FILE ONLY) 


* 


• 
• 


7 


I 




; 


$- 


-BASE 


i 


DC* 


'. 


•XXXNX» 


*. 




I 


BASE TAPE 


; 


5 


'. 


NCDE. PARITY, CFAN.ANC UNIT FOR CURRENT BASE-E.G. M'UPX 


* 


• 
• 


8 


I 


»A0 


; 






; 


CC* 


; 


•XXXNX* 


I 




• 


ALT TAPE 


; 


5 


; 


KCCE. PARITY. Ct-AN,ANC UNIT FOR CURRENT ALT -E.G. M'UIX 


» 


• 
• 


9 


I 


S0TF1 


'. 






'. 


CC* 


'. 


S INIT 


I 




• 


FILE INIT ADDR 


; 


5 


: 


FOR IMT CF FILE SCt-EC DURING OPEN. FEORL. AND EOR 




ft 
• 
• 
« 


10 


• 


•DTF A 


• 


»- 


-EOF 




cc* 




XX.. .XX 

* PAOS 

SCLSAB 




INPLT 

OUTPUT 
OUTPUT 


i 


USER EOF ADDR 
PAD ROUTINE ADDR. 
NO PADDING ADDR • 


5 


| 


ACCESSED *HEN REQUIRED BY THE EOR ROUTINE 

TC PAD PARTIAL BLOCK IF FIXED, BLOCKEO FILE ON CLOSE 

DUMMY TC PRVENT PAOCING WHEN NOT FIXED, BLOCKED 


# 
* 


• 
* 
• 


11 


I 


»C9 


• 


%~ 


-FSCK 


' 


ecu 


: 


•N* 


• 


INPUT 
OUTPUT 


• 


FILE SERIAL IND 


I 


1 


, 


0= CHECK. 1= NO CHECK 

1= SET IT EQUAL TO TAPE SERIAL FOR 1ST REEL. 0= DONT 


# 
* 


* 
• 


12 


* 


»*FS 


I 


»- 


-HFS 


• 


CCW 


• 


•NNNNN-* 


• 


INPUT 

OUTPUT 


• 


FILE SERIAL NUWB* 


6 


. 


NNNNN= CTF SPECIFIED SERIAL NUMBER, OR BLANKS 
NNNNN= DTF SPECIFIED. OR TAPE SERIAL. OR BLANKS 


# 


• 


13 


• 


• HRS 


; 






; 


DC 


• 


•NNN • 


• 




i 


REEL SEQ NUMBER 


; 


4 


* 


NNN= 001 CR DTF REEL SEQ. FOR 1ST REEL. UPOATED AT LOR» 


• 
* 


14 


I 


SHAN 


; 






; 


DC 


'. 


'X...X* 


• 




• 


FILE NAME 


'. 


10 


; 


HEADER NAME 




ft 
• 


IS 


I 


SHCD 


! 






; 


OC 


• 


•YYDDD* 


'. 




i 


CREATION DATE 


'. 


5 


I 


YY= YEAR, DDD= CAY. DTF SPEC, OR FOR OUTPUT DATE IN II9» 


• 
• 


16 


I 


•HRC 


I 






; 


CC 


\ 


•-NNN « 


• 




i 


RETENTION CYCLE 


1 


5 


'. 


NNN = NUMEER CF DAYS. DTF SPECIFIED 


* 


• 
• 


17 


• 


•CTFLE 


; 


t- 


-TFLE 


; 


CC* 


i 


•N* 


• 




*. 


LABEL TYPE 


; 


t 


1 


0= STANDARD, 1= NONE, 2* NON-STANDARD 


* 


• 
• 


18 


• 


•0TFL1 


; 


*- 


-TFLt 


; 


cc* 


• 


*N' 


• 




i 


FILE TYPE 


; 


1 


; 


0= OUTPUT, 1* INPUT 


* 


• 
• 


19 


I 


•CTFL2 


I 


I- 


-TFL2 


; 


CCW 


i 


«fc« 


1 




i 


ALT ORIVE IND 


'. 


1 


'. 


0= NO AUTERNATE, 1= ALTERNATE IS SPECIFIED 


* 


* 
• 


20 


• 


•0TFL3 


I 


9- 


-TFL3 


• 


cc* 


t 


* N< 


I 




• 


LABEL CHECK I NO 


• 


1 


V 


0= CHK COMPLETELY, 1= NO CHK, 2= CHK FILE NAME ONLY 


* 


• 
» 


21 


I 


•CTFLA 


I 


%- 


-TFL4 


I 


CCW 


i 


•N« 


I 




; 


JH AFTER HDR IND. 


t 


'. 


0= NO, 1=YES 


* 


* 


22- 


I 


•CTFLS 


; 


%- 


-TFL5 


I 


CC* 


i 


•N» 


I 




• 


REWIND INC 


'. 


1 


1 


0= NO REWIND. 1= REWIND, 2= REWIND UNLOAO 


* 


• 
* 


23 


I 


STBC 


'. 


%- 


-TEC 


; 


CC* 


i 


"NNNNN* 


I 




• 


BLOCK COUNT 


'. 


5 


I 


RUNNING eLCCK COUNT FOR CURRENT REEL 


* 


• 
• 


24 


■ 


•TRC 


; 


»- 


-TBC 


; 


CC* 


; 


•N.. .N* 


I 




I 


RECORD COUNT 


; 


10 


'. 


RUNNING RECCRC COUNT FOR CURRENT REEL 


. 


• 


25 


• 


STHT 


• 


t- 


-TFT 


c 


CC* 


I 


•N.. .N» 


; 




. 


HASH TOTAL 


; 


16 


• 


RUNNING HASH TOTAL FOR CURRENT REEL 


* 


• 
• 
* 


26 


• 


»0« 
«C1 


; 


$- 

*- 


-06 
-DI 


• 


DC* 
CC* 


; 


•N» 
•N' 


• 


IhPUT 

OUTPUT 


• 


EXIT 6 IND 
EXIT 1 IND 


; 


« 


• 


0= NOT USED. 1=USE0 


* 


• 
• 
* 


27 


• 


»E« 
*E1 


• 






• 


CC* 

ecu 


• 


•X...X* 
•X*. *x* 


• 


INPUT 
OUTPUT 


I 


EXIT 6 ADDRESS 
EXIT 1 ADDRESS 


; 


s 


• 


USED TO OVERRIDE CR IN LIEU OF STAND IDENTIFIER 
USED TO MCOIFY STANDARD TRAILER 


ft 


* 
* 
• 


28 


• 


•07 
«C2 


| 


*- 
*- 


-D7 
-02 


I 


DC* 

CCH 


* 


•N» 
•N' 


• 


INPLTT 
OUTPUT 


* 


EXIT 7 IND 
EXIT 2 IND 


; 


1 


• 


0= NOT USEC, 1= USED 
0= NOT USEO, 1= USEC 


ft 


• 
• 
ft 


29 


• 


»E7 
SE2 


\ 






• 


CC* 
CC* 


• 


*X...X* 

*x«. *x> 


• 


INPUT 

OUTPUT 


• 


EXIT 7 AODRESS 
EXIT 2 AOORESS 


\ 


5 


• 


USED TO CHECK NON-STAND HEADER OR ADDITIONAL HEADER 
USEO TO BUILO NON-STAND TRAILER OR ADD TRLR AFT STAND 


; 


• 
• 


30 


• 


»C3 


■ 


*- 


-03 


• 


CC* 


I 


•N« 


; 


OUTPUT 


; 


EXIT 3 IND 


• 


1 


• 


0= NCT USED, 1= USEC 


* 


ft 
» 


31 


• 


«3 


I 






I 


OC* 


I 


•X...X* 


'. 


OUTPUT 


I 


EXIT 3 AOORESS 


'. 


5 


I 


USED TO CHECK STANOARC HEADER ANO/OR BUILD HEADER 


* 


ft 
• 

ft 
ft 

ft 
» 


32 


- 


SC4 


• 


*- 


-04 


I 


DC* 


'. 


'N* 


• 


OUTPUT 


I 


EXIT 4 IND 


• 


1 


'. 


0= NCT USED. 1= USEC 


» 


33 


* 


«E« 


I 






• 


CC* 


- 


*x.. .x» 


* 


OUTPUT 


• 


EXIT 4 AODRESS 


; 


5 


1 


USED TO MCOIFY STANDARD HEADER 


* 


34 


I 


•05 


; 


$- 


-OS 


z 


CC* 


; 


•tt* 


• 


OUTPUT 


• 


EXIT 5 IND 


'. 


, 


; 


0= NCT USED. 1= USED 


* 


ft 
• 

ft 
ft 


35 


. 


»E5 


, 






* 


CC* 


Z 


*X...X ' 


1 


OUTPUT 


. 


EXIT 5 ADDRESS 


• 


5 


• 


USED TO CHECK AND/OR BUILD NON-STAND AND/OR ADD HEADER* 


36 


; 


sea 


'• 


*- 


-oe 


• 


CC* 


I 


•N» 


* 


OUTPUT 


; 


EXIT e IND 


I 


1 


• 


0= NCT USED, 1= USEC 


* 



ftftftftftftftftftftftftft 



ftftftftftftftftftftft******* 



• Figure 7. File Reference Table 
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Appendix A — Glossary 



Assign: To modify and complete table entries and instructions 
that will be used by the running program. 

Block: One or more data records grouped to form one con- 
tinuous record which will be written or read from tape, from 
or to storage. 

Blocking Factor: The number of data records making up a 
tape record. 

Checkpoint: A reference point at which error-free operation 
of the program has been verified and where the program may 
return for restart in the event of subsequent failure. 

Checkpoint File: A tape record or records that contain the 
contents of storage and machine conditions necessary to restart 
a program at a checkpoint. 

Checkpoint Tape: The tape on which checkpoint records are 
written. 

Close: To terminate a file. For output files — write a tape mark 
and, if specified, an end-of-reel trailer and another tape mark. 
For both input and output files — rewind the tape and take a 
checkpoint, if specified. 

Control: The apparatus used to direct, guide, or restrain a 
mechanism or machine in operation. In computers, control is 
maintained through the sequence of instructions in a program. 
Control is often used in referring to the next instruction to be 
executed, by such phrases as, control goes to, or, control 
branches to. 

Data Record: A number of words of information grouped in 
a known manner which will be used as data for a given opera- 
tion. 

EOF (End of File) : The logical end of an organized collection 
of information directed toward some purpose. For multiple-reel 
files, it is recognized at the end of the last reel. 

EOR (End of Reel): The end of all records on a single tape. 
The trailer on labeled input tapes contains information defin- 
ing end of reel, eor on unlabeled input tapes must be recognized 
by a user's routine. The user is able to identify an end of reel 
by recognizing the last record of a reel, eor for output files 
is normally indicated by recognition of the end-of-tape reflector. 

Fixed Length Data Records: Data records within a tape file, 
all of which contain the same number of characters. 

Force Condition: An indication that there is no record in the 
read-in area available for processing or that the write-out area 
is unavailable to receive information. When this condition 
exists, iocs will take steps to fill the read-in area with informa- 
tion or to execute a write from the write-out area, thus freeing 
it for processing. 

Hash Count (Hash Total): The cumulative total of the sets 
of characters in a hash field for all records, ( in a file, in a reel, 
or that are processed in a particular way). The total is made 
for auditing or control purposes. 

Hash Field: The position in a record from which hash counts 
or hash totals are derived. 



Initialization: The resetting of counters, switches, and ad- 
dresses at specified times in a program. 

IOCS (Input/Output Control System): A program devel- 
oped to handle all necessary unit record or tape input and out- 
put procedures to relieve programmers of duplicating their 
efforts for most programs they write. 

Label: A record or records, written on tape, containing identi- 
fying information concerning the file on the tape. For specifica- 
tions, see iocs bulletin. 

Linkage: A series of instructions which enable a transfer to and 
return from one program routine to another. 

Macro: An open-ended sequence of machine instructions pro- 
duced by a processor on recognition of a source-language state- 
ment. These instructions can perform a function defined by 
the parameters given in the source statement. They may con- 
sist, in part, of a linkage to a closed subroutine. 

Multi-file Reel: A tape reel which contains more than one 
tape file. 

Noise Record: A redundant non-data pulse which is picked 
up by the read head. 

Parameter: A quantity left unspecified at some stage of an 
operation and to which the user may assign arbitrary values. 
Also, a field in the operand of a macro statement. It may be 
given different names or values which allow the macro gen- 
erator to generate machine instructions that have the correct 
address, index words, etc., for a large variety of programming 
situations. 

Prime: To fill input areas. 

Record Count: A count of the number of records in a file, 

in a reel, or that are processed in a particular way. 

Retention Cycle: The number of calendar days following the 
creation date that a file is to be saved if standard headers are 
used. 

Request: The i/o operations which the main program seeks 
to perform in iocs. 

Subroutine: A small routine that can be included as part of 
several larger routines. Two major types exist; 

1. Open — This routine is inserted directly, wherever needed, 
in such a way that control enters and exits in a sequential 
manner. 

2. Closed — A routine which occurs only once, non-sequen- 
tially, in a program. It may have several entry and exit 
points. It is entered and left via linkage. 

Tape Record: The information contained between two suc- 
cessive inter-record gaps. 

Variable Length Data Records: Data records within a tape 
file, at least two of which do not contain the same number of 
characters. 

Variable Length Tape Records: Data tape records in a file 
that contain variable length data records, or data tape records 
in a tape file at least two of which have different blocking 
factors. 
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ACPT 


ACCEPT 


LOC 


LOCATION 


ADDR 


ADDRESS 


MSG 


MESSAGE 


AFT 


AFTER 


MVE 


MOVE 


AR 


AREA 


NEC 


NECESSARY 


AST 


ASTERISK 


NO. 


NUMBER 


AUTO 


AUTOMATIC 


NOP 


NO OPERATION 


BAL 


BALANCE 


NORM 


NORMAL 


BKSP 


BACKSPACE 


OP 


OPERATION 


BLKCNT 


BLOCK COUNT 


OP-CODE 


OPERATION CODE 


BLKD 


BLOCKED 


OVRLP 


OVERLAP 


CHAN 


CHANNEL 


P 


PARAMETER 


CHAR 


CHARACTER 


PA 


PRIORITY ALERT 


CHK 


CHECK 


PNCH 


PUNCH 


CHKPT 


CHECKPOINT 


PNDG 


PENDING 


CLS 


CLOSE 


POS 


POSITION 


CNT 


COUNT 


PREV 


PREVIOUS 


COND 


CONDITION 


PRI 


PRIORITY 


CORR 


CORRECTED 


PRIM 


PRIME 


CTR 


COUNTER 


PROCD 


PROCEDURE 


CTL 


CONTROL 


PROG 


PROGRAM 


CU 


CHANNEL AND UNIT 


PT 


POINT 


CW 


CLEAR WORD MARK INSTRUCTION 


PTR 


PRINTER 


D-MOD 


d-MODIFIER 


QTY 


QUANTITY 


EOR 


END-OF-REEL 


RCD 


RECORD 


EXT 


EXTERIOR 


RCP 


READ CONSOLE PRINTER INSTRUCTION 


F.S. 


FILE SCHEDULER 


RD 


READER, READ 


FLD 


FIELD 


REF 


REFERENCE 


FORC 


FORCING 


REG 


REGISTER 


FORCD 


FORCED 


REIT 


REJECT 


FRA 


FILE REFERENCE ADDRESS 


REQ 


REQUIRED 


GPR 


GREATER PRIORITY 


RET 


RETURN 


FXD 


FIXED 


RTN 


ROUTINE 


GM 


GROUP MARK 


RWD 


REWIND 


H-O 


HIGHER ORDER 


RWU 


REWIND AND UNLOAD 


HDR 


HEADER 


SCHD 


SCHEDULER 


HGHST 


HIGHEST 


SCHED 


SCHEDULER 


HI 


HIGH 


SKP 


SKIP 


HI-ORD 


HIGH ORDER 


SPEC 


SPECIFIED 


I/O 


INPUT/OUTPUT 


STG 


STORAGE 


IDENT 


IDENTIFICATION 


SUB 


SUBSTRACT 


IND 


INDICATOR 


SW 


SWITCH 


INFO 


INFORMATION 


TM 


TAPE MARK 


INIT 


INITIALIZATION 


UR 


UNIT RECORD 


INPT 


INPUT 


USUL 


USUAL 


INST 


INSTRUCTION 


VAR 


VARIABLE 


INTRPT 


INTERRUPT 


WLR 

WM 


WRONG LENGTH RECORD 
WORD MARK 


L-O 


LOW ORDER 


WR 


WRITE 


LBL 


LABEL 


XCTL 


X-CONTROL 


LENG 


LENGTH 


XREG 


INDEX REGISTER 
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Three cross references are included to provide quick 
access to specific points on the flow chart. 

Part 1: The connector cross reference lists the off- 
page entry connector under entry conn, the off-page 
exit connectors associated with that entry connector 
under exit conn, and the associated block number 
under block number. For example, dba2 under entry 
conn is an off -page entry connector on Chart db; dcki 
and dck3 under exit conn are the chart locations which 
have off-page exit connectors to dba2; and DC22 and 
DC13 under block number are the respective block 
numbers. 

Part 2: The subroutine cross reference lists the sub- 
routine name under subroutine; the entry connector 
to the subroutine, if any, under entry conn; and each 



block which represents the subroutine under block 
location and block number. For example, $wtmru 
under subroutine and dgbs under entry conn indi- 
cates that dgbs is the off-page entry connector to the 
detail chart of the swtmru subroutine; dbj2 and DEB4 
under block location, and db33 and de27 under block 
number are the chart locations and block numbers, 
respectively where the subroutine is represented. 

Part 3: The label cross reference lists the symbolic 
or actual label under label, the chart location(s) 
where the label occur(s) under block location, and 
the block number(s) under block number. For exam- 
ple, sintext under label is shown at chart locations 
aaki and bahi under block location and at block 
numbers aa23 and BA20 under block number. 



ENTRY 


EXIT 


BLOCK 


CONN 


CCNN 


NUMBER 


DBAI 


DAF3 


DA24 




DEK4 


DE39 


DBA2 


BEK4 


BE 10 




BEKS 


BE20 




OCK1 


DC22 




DCK3 


DC 13 


DBC2 


DCH4 


DC4C 


D8C4 


DCC1 


DC03 




DCC2 


0C06 




DCK3 


DC 13 


DBK4 


DDK3 


DD22 




DEK2 


DE33 


OCA1 


DEB3 


DB14 


DOA1 


BBF1 


BB1 1 




BBF5 


BB31 




BCE3 


BC20 




BDD3 


BD16 


DED1 


DCD1 


DD25 




0DK1 


DD33 



SUBROUTINE 


ENTRY 


BLOCK 


BLOCK 


NAME 


CONN 


LOC 


NUMBER 






ABC2 


AB03 






ABK4 


AB1S 






BBG2 


BB14 






BCH3 


BC28 






DBF2 


DB30 






DBF4 


D819 






DCE4 


DC43 






DCJ5 


DC37 






DDH4 


DO 19 






DDJ1 


DD32 






DEF4 


DE2S 






DEH5 


DEI 9 



ENTRY 


EXIT 


BLOCK 


SUBROUTINE ENTRY 


BLOCK 


BLOCK 


CONN 


CCNN 


NUMBER 


NAME 


CONN 


LCC 


NUMBER 


DFB2 


DAD4 


DA26 




DHA5 


EAJ5 
EBB4 


EA32 
E027 


DFB3 


CBGS 


CB36 












DBK4 


DB25 




EAA 1/EDA1 


CCE4 


CC34 




DCG4 


DG37 
















S IN IT 


BEA4/A5 


DBK1 


DB10 


DGD4 


DFF2 


DF07 
















$ PADS 


BFB2/B4 


CAE5 


CA25 


EAF4 


EBD2 
EBF3 


EB13 
EB23 






DEB1 


DE03 




ECC3 


EC30 


S WTG 


BDD1 


DDG2 


DD29 




ECJ1 


EC20 






DER5 


DEI 2 




ECK3 


EC IB 


SCHKPT 




DBJ5 


DB24 


EBA1 


EAG3 


EA26 
















SCLOP 


orBi 


ABB3 


AB01 


EBA3 


ECK5 


EC47 
















tCLSA+7 


DLA3 


ADC4 


AB21 


EBA4 


EAF5 


EA25 
















SCPERR 


DHG2 


CCD2 


CC24 


ECA1 


EBE3 
EBH1 


EB22 
EB07 






DHD2 


OH 14 




EBHS 


EB37 


tCS-RET 


F2/K3 


AAJ4 


AA45 




EBJ2 


EB16 
















SCS-RET 


BAB1/F1 


CCE2 


CC05 


ECA4 


EBH3 


EB25 
















SCS-SCN 


BAE4/D1 


CCJ3 


CC12 


ECAS 


EBG3 


EB24 
















SCS-SFS 


BAG3/D1 


CBC1 
CBD4 
CCB1 


CB03 
CB24 
CC01 






















CCB4 


CC31 


* 






SCS1SFS 


BAG3 


ACA1 
CCB3 
CCB5 
DFC4 
EAJ4 
EDD2 


AC09 
CC21 
CC41 
DF22 
EA33 
EDI 1 








SCS2SFS 


BAD1 
BAD1 


CCC5 

DFD4 


CC42 
DF23 








tENTA 


DDA1 


ABE4 


AB08 








SENTAB 


DDA2 


ABF4 


AB09 








SENTC 


DCA1 


ABG4 


AB10 








SENTD 


0BC4 


ABG3 


AB1 1 
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SUBROUTINE 


ENTRY 


BLOCK 


BLOCK 


NAME 


CCNN 


LCC 


NUMBER 


SENTF 


DEC2 


A0G5 


AB12 


SENTH 


DLG2 


A0D4 


AB22 


SENTJ 


DBK4 


ADH4 


AB13 


SENTRY 


AAA2 


AA05 


AA36 




PAA3 


BCE2 


BC21 






CBG1 


CBIO 






CBH4 


CE28 






CCE3 


CC25 






CCF5 


CC51 






CCG2 


CC14 






CCH4 


CC37 


SEORU 


ODA1 


ABB4 


AB19 


SERCHOP 


EAA5 


EAE3 


EA20 






EAE5 


EA24 






EGA1 


EB01 






EBE1 


EB04 






EBG1 


EB06 






EBG5 


EB36 






ECE2 


EC 12 






EC J2 


EC16 


SERROR 


EAA1 


AAJ5 


AA46 






BBF1 


BB1 1 






BBF5 


UB31 






BCA4 


BC30 






BOD4 


BD26 






CCF2 


CC07 






0GE5 


DG33 






0GG2 


DG29 






DGH2 


DGOS 


SEXIT 


DFD2 


AUB2 


AB02 


SEXITRU 


DFB3 


ABJ4 


AE14 


SHALT 


OHA1 


ACE3 


AC 19 






ACH3 


AC25 






OCH1 


DC20 






DCJ3 


DC 12 






DEK3 


0E36 






DGG5 


DG36 






EBA3 


EBIB 






ECH4 


EC41 






EDK3 


ED 36 


SIPEOR 


0DA5 


ABC5 


AB20 


SNOTE 


DhA2 


ACK.5 


AC29 






DCE3 


DC08 






DCG3 


DC10 






DDFS 


DD1 1 






DDH5 


DD13 






DDK5 


DD1S 






DEK4 


DE39 






DHB1 


DH02 






EBC2 


EB12 






ECD4 


EC35 






ECG3 


EC30 






E0J5 


ED30 



JPAEXIT 


DAC4 


ABF2 


AB05 


SPAHSK 


DAB3 


ABE3 


AB07 




DAB4 


ABE2 


AB04 


SPSV 


DHA4 


EAH2 


EA13 


SRDLIN 


DGD4 


AEB1 


AB24 


SREADPU 


DGB1 


DBH5 


DB22 






DCB1 


DC02 






DDAS 


DD06 


SREENT 


DFG5 


DBG2 


DB31 






DBG4 


DB20 






DCF4 


0C44 






0CK5 


DC38 






CDJ4 


DD20 






DDK1 


DD33 






DEG4 


DE26 






DEJ5 


DE20 






DFF4 


DF25 



SUBROUTINE ENTRY 


BLOCK 


BLOCK 


NAME CCNN 


LOC 


NUMBER 


SRWDRU DGB3 


DBA4 


DB13 




CCG4 


DC39 




DEG1 


DE29 


SRWURU DGB4 


DEH1 


DE31 


SSTLE DFB4 


ODB1 


DD02 




DFC1 


DF02 


SSWBX DFB5 


DBE2 


DB29 




DBE4 


0B18 




DCD4 


DC42 




DCH5 


DC36 




DDG4 


DD18 




DDH1 


DD31 




DEE4 


DE24 




DEG5 


DEI 8 




DFE3 


DF14 


STPCLOS DEA2 


ABC3 


AB18 


SURCHOP E0A5 


EDA2 


ED08 




EDA3 


ED18 




EOF1 


ED06 




EDF4 


ED23 




EDG3 


ED21 




EOH2 


ED15 


SURERR EDA1 


CBE2 


CB06 




CBG4 


CB27 




C0G5 


CB36 


SWRITRU DGB2 


DCH4 


OC40 




DEK5 


OE21 


S«ITMRU DGB5 


DBJ2 


DB33 




DEB4 


DEI 3 




DEG3 


DE27 


CHAN SCHED BAA3 


BBH1 


BB07 


BABS 


BBJ4 


8B29 




BDD2 


BD17 


BAE3 


BCE5 


BC34 




BDF5 


BD28 


BAG4 


BBC1 


BB03 




BBD4 


BB24 




BCD1 


BC04 




BDF1 


BD06 


F.S. BBC4/BBB1 


BFE1 


BF07 




BFH3 


BF20 


F.S. BCA1/BBB1 


CAB4 


CA13 


F.S. BCAS/BDDS 


BADS 


BA10 



F.S. BUA1/BBB4 
FILE SCHED 





ABK3 


AB17 


AAF4 


AAE2 


AA1 1 




AAJ2 


AA20 


AAH5 


AAC2 


AA06 




AAG2 


AA15 



FORM '! RCD ONLY 
FORM 4 »LR SEQ 

IOCS 

LOAD PROGRAM 

MACRO 

MAIN PROGRAM 

PNDG St» NETWORK 
SCHED B3/F3 

SCHED C3/G3 



BBH3 


BB16 


BCHS 


BC35 


RRC5 




RRE5 




ABG2 


Ae06 


RRAS 




RRD5 





RRB5 




RRF5 




BAH4 


BA22 


AAC4 


AA39 


AAK4 


AA46 
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BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


LABEL 


LOC 


NUMBER 


LABEL 


LOC 


NUMBER 


LABEL 


LOC 


NUMBER 


LABEL 


LOC 


NUMBER 


S ACT + 1 1 


CBB5 


CB31 


SCOMP 


0AC1 


DAOS 


SERDMP- 19 


ECA4 


EC23 


SOPEORA 


DED1 


DEOS 


S BYP 


BCD2 


DC 19 


SCPERR 


DHG2 


DH21 


SEREF 


EBF2 


EB14 


SOPHD 


DCE2 


DC 14 


S EMTY 


AAA4 
BDB1 


AA31 
OBOI 


SCPEX 


DhJ2 


DH24 


SERENT 


EAB1 


EA02 


SOPHOAB 


DCA4 


DC28 




BCA1 


BC01 


SCS1ENT 


AAB1 


AA04 


SEREX 


EDC4 


EB29 


SOUT 


DAF2 


DA16 




CBB1 


CB02 




BAC4 


BA05 


























SERFA 


EBB5 


EB31 


SPAEXIT 


DAC4 


DA25 


S EXIT 


AAF5 


AA38 


SCS1PR 


AAC1 


AAOS 
















BBK1 


BB09 




BAD4 


BA06 


SERH 


ACE3 


AC 19 


SPAHSK 


DAB3 


DA02 




BBK4 


BB30 










ECH4 


EC 41 




CAB4 


DA01 




BCH2 


BC24 


SCSI RET 


AAF2 


AA12 
















BDF2 


BD19 




BAB1 


BA17 


SERH*7 


ACE4 


AC20 


SPR1MER 


DEB4 


DEM 




C6J1 


CBI2 










ECA2 


EC08 










CBJ4 


CB29 


SCS1SCN 


BAE4 


BA07 


SERHLT 


ACH3 


AC25 


SPRIME3 


DEA5 


DEU 


* FULL 


BBB4 
BDA1 


B821 
HD01 


SCS1SF 


BAE3 


BA13 




EBA3 


EB18 


SPSV 


DHA4 


DH31 




CBB4 


CB22 


SCS1SFS 


AAB3 
BAG3 


AA07 
BA1 1 


SERLV 


ACCS 

EUA4 


AC06 
EB26 


SPSX 


DHJ4 


DH39 


* I N I T 


BEA4 


BEOl 














SRDLIN 


DGD4 


DG31 




BEA5 


BE1 1 


SCS1SFX 


BAG2 


BA16 


SERNR 


ACB4 
EBA2 


AC1 1 

EB10 


SREADRU 


DGB1 


DG01 


* — IOA 


BBD1 


BB04 


SCS1S3 


BAG4 


BA09 
















BBE4 


BB25 








SERNRH3 


EBB2 


EB1 1 


SREENT 


DFG5 


OF 4 1 




BCJ1 


BC09 


SCS2ENT 


AAF1 


AA13 
















BBB4 


BD22 




BAC1 


BA18 


SERPA 


ECC4 


EC34 


SRWDB 


DGF3 


DG27 




CBD1 


CB04 






















CBE4 


CB25 


SCS2PR 


AAG1 


AA14 


SERPU 


EAD1 


EA04 


SRWDRU 


DGB3 


DG21 


$ I OB 


BCK1 


BCIO 


SCS2RET 


AAK3 


AA21 


SEROLB 


ACG4 


AC23 


SRWDRUA 


DGC3 


DG24 




BDB5 


BD23 




BAF1 


BA19 




ECH5 


EC45 


SRWURU 


DGB4 


DG22 


S — PA 


AAA5 


AA33 


SCS2SFS 


AAF3 


AA16 


SERRCB 


ACA2 


AC01 










BCA2 


BC12 










EAA1 


EA01 


SSTLE.SSCS 


DFB4 


DF2 1 




BDA2 


BDIO 


SDATER 


DCJ2 


DC18 


























SERSCN 


ACK3 


AC30 


SSTLEXT 


DFJ5 


DF43 


S — PADS 


BFB2 
BFB4 


BFOl 
BF1 1 


SEND 


DAC2 


DA13 




ECA5 


EC31 


SSUSXA 


DEC4 


DE22 








SENTA 


DBA1 


OBOI 


SERSK 


ECH2 


EC1S 








$ PFOR 


0FG3 


BF19 














SSWBX 


DF05 


DF31 








SENTAB 


DDA2 


DB1 1 


SER10 


' EAF1 


EA10 








S PLB1 


BFG2 


BF06 














SSWBXA 


DF05 


0F33 




BFJ4 


BF1S 


SENTC 


DCA1 


DC01 


SEXIT 


0FB2 


DF03 


STPCLOS 


DLA2 


DE01 


S — PLB2 


BFD2 
BFF4 


BF03 
BF15 


SENTCH 


DCB1 


DC02 


SEXITRU 


DFB3 


DF1 1 


SURANY 


EDF1 


ED06 


S SA 


BCA3 


BC1S 


SENTO 


DBC4 


0B16 


SFINIT 


DBJ1 


D009 


SUR8AN 


EDJ1 


ED33 




BDA3 


BD13 


SENTE 


DCG4 


DC39 


SHALT 


DHA1 


DH01 


SURBAN-1 1 


CDIil 


ED32 


I SFX 


CBC1 
CCD4 


CB03 
CB24 


$ENTF 


D0C2 


0B27 


SHALT X 


DKH1 


DH08 


SURCHOP 


EDAS 


ED40 








SENTG 


DDK3 


DD22 


SIN 


DAE3 


DA23 








* TRIG 


AAC5 
BBH1 


AA35 
BB07 


SENTH 


DtG2 


DE28 


SINTEXT 


AAK1 


AA23 


SURDCK 


EDC3 


ED37 




BBH4 
BCE3 


BB28 
BC20 


SENT I 


DBJ4 


DB23 




BAH1 


BA20 


SURENT 


ECC1 


ED03 




BDD3 
CBG1 


BO 16 
CBIO 


SENTJ 


0BK4 


D02S 


SIPEOR 


OCAS 


D006 


SUREDR 


EDA1 


ED01 




CBH4 


CB2B 


SENTRY 


AAA2 


AA01 


SJUG 


ACA4 
EAF4 


AC03 
EA22 


SUREXIT 


ECK1 


ED34 


$ WLR 


BBH3 


BE 16 




BAA3 


BA03 








SURNR 


EDG5 


ED28 




PCH5 


BC35 


SEORU 


DCA1 


0D01 


SLBIN 


DGE1 


DG04 


SURNR* I 3 


EDH5 


ED29 


S WTG 


BCB1 
BDDl 


BC02 
ED04 


SERBA 


ACA5 
EAE4 


AC04 
EA23 


SLBOP 
SLINK 


0GG1 
DAH1 


DG06 
DA 10 


SUROPEN 


DFGl 


0F51 


S OOOON 


BCG1 
BDJ1 


EC07 
BD09 


SERCHOP 


EAA5 


EA36 


SLMWTGR 


ACB1 
EAK3 


AC08 
EA29 


SURPKUP 
SUROE 


ED El 
EDK4 


EDOS 
ED27 


SATTN 


BAB4 


BA02 


SERCTL 


ACF4 

ECE4 


AC22 
EC 38 


SMOVE 


DAJ1 


DAI 1 


SURTY 


EDJ3 


ED35 


$BCRT 


DDE4 


0016 


SEROA 


ECD3 


EC27 


SNHL 


DCE1 


DC23 


SWRI1RU 


DGB2 


DG1 1 


SCLOP 
SCLSA 
SCLSA+7 


DFB1 
DEF2 
DEA3 


DF01 
DE08 
DE09 


SERDC 
SERDLY 


ACD2 
ECA1 

ACC4 

EBA5 


AC17 
EC 01 

AC 13 
EB30 


SNIH 
SNOH 
SNOTE 


DCJ3 
DCH1 
DHA2 


DC 12 
DC20 
DH1 1 


SWTGX 

SWTMRU 

00101 


EAKS 
DGB5 
BAA4 


EA35 
0G23 
BA01 


SCLSABA 


DEC2 


DE04 


SERDMP 


ECA3 


EC24 


SOPEOR 


DDD1 


DD25 


1ST LOAO 


RRA5 




SCLSB 


DLD5 


DEI 5 














2ND LOAD 


RRDS 
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*********** 



************ 



******** 



***************************** 



*••*****• 



FUNCTIONAL SYMBOLS 



FLOW AND CONNECTOR SYMBOLS 



i*#El*#«t* 



(REPRESENTATIVE SAMPLES SHOWN.) 

X AT ENO OF LINE SHOWS DIRECTION OF FLOW 
POINT AT END OF OFF-PAGE ENTRY 

CONNECTOR ALSO SHOWS FLOW DIRECTION 



*C4*****«**» 



*E1******* 



ON-PAGE 

ENTRY 

CONNECTORS 



ON-PAGE 
EXIT 

CONNECTORS 



. .x« 




















» 




• * 








* 




• *< 


*********** 


-««# 




**** 












* * 












* C4 * 












* * 












**** 


* 


D4 * 








• • • * 


* 


* * 


• 


* 




X 




* * 




















« * 




. 








« C4 * 




• 












X 












*»** 

» * 

* C4 * 

* * 






X. ... 






***** 












*F4 * 












* * 
























* 












" 










. 






*F4 * 



CONNECTORS 

BOTH EXIT TO 

BLOCK C4 

ON THIS 

CHART 



LINE JUNCTION 
CROSSING LINE 



*****F4**» 



***************** 



OFF-PAGE 


* 








ENTRY 


• .X* 








CONNECTORS 


■ * 










. •*******«*• 




* 










» * 










*F4 * 




















***** 




G4 

• 


X 


OFF-PAGE 


A 


• 






EXIT 


■ ■ •* 








CONNECTORS 


" 


* 


# 






X 




* 


* 




***** 






* 




*ZB * 






■ B 




* A2» 










* * 






X 




* 




***** 








* 


ZC * 








* 


A3* 



AN OFF-PAGE ENTRY CONNECTOR* 

MAY ALSO BE REFERRED TO * 

BY AN ON-PAGE CONNECTOR * 

ON THIS CHART * 



ZB A2 

ZC A3 



ZB Al 



NX******************* 



********************* 
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Appendix E — DIOCS-Generoted Label Definitions 



This section lists the labels in iocs that are generated 
because of diocs entries. With each label is an explana- 



tion of the routine or data area the label addresses. 



IOCSAD - ALTERNATE DRIVE. 

RELATIVE POSITION OF THE FILE SCHEDULERS ALTERNATE 
DRIVE INFORMATION. 

IOCSARG - ARGUMENT. 

WHEN THE I/O COMMAND IN ERROR IS PROCUREO , THE ERROR 
ROUTINE USES THE CHANNEL SYMBOL AND UNIT NUMBER TO LOOK 
UP AGAINST THE CHANNEL UNIT TABLE TO OBTAIN THE 
FILEv SCHEDULER ADDRESS. 

IOCSATTN - ATTENTION. 

SEQUENCE OF INSTRUCTIONS FOR STORING THE PROGRAM 
STATUS LATCHES PRIOR TO ENTRY INTO IOCS. 

IOCSBCRT - BRANCH CHECK - REWIND TAPE. 

MOVE EXIT 6 ADDRESS TO THE SWITCH BOX, TURN OFF THE 
PENDING SWITCH FOR THE FILE, BRANCH TO EXIT 6 ROUTINE, IF 
SPECIFIED, AND CONTINUE TO THE RWD/RWU SEQUENCE, IF AT 
END OF REEL. 

IOCSBLANK - BLANKS. 

BLANKS USED TO CLEAR THE LABEL AREA BEFORE CONSTRUC- 
TION OF HEADER LABELS. 

IOCSCCTAB - CHANNEL CHANGE TABLE AB. 

TABLE CONTAINING CONSTANTS NECESSARY TO CHANGE A FILE 
SCHEDULER TO THE ALTERNATE CHANNEL ACCORDING TO THE CON- 
TENTS OF THE FILE SCHEDULER CHANNEL INDICATOR DURING THE 
OPEN. 

IOCSCHKPT - CHECKPOINT. 

CHECKPOINT SEQUENCE - ENTERED VIA THE CHKPT MACRO IN- 
STRUCTION OR DURING THE END-OF-REEL SEQUENCE AT IOCSENTI. 
WILL WRITE THE CHECKPOINT IDENTIFICATION HEADER AND THE 
CHECKPOINT RECORD. 

IOCSCIA - CONSOLE INQUIRY AREA. 

AREA USED TO STORE INDEX REGISTERS AND PROGRAM STATUS 
LATCHES DURING AN INQUIRY REQUEST INTERRUPT. 

IOCSCIE - CONSOLE INQUIRY ENTRY. 

BRANCH TO THE USER'S INQUIRY ROUTINE. THE USER'S ROUTINE 
MUST HAVE A SBR INSTRUCTION AS ITS FIRST COMMAND TO ROUTE 
THE RETURN FOR RESTORATION OF THE PROGRAM STATUS LATCHES 
AND INDEX REGISTERS. 

IOCSCIPR - CONSOLE INQUIRY PRIORITY ROUTINE. 

ROUTINE STORING PROGRAM LATCHES AND INDEX REGISTERS 
THAT MAY BE USED IN THE USER'S INQUIRY ROUTINE. 

IOCSCKBSP - CHECKPOINT BACK SPACE. 

BACKSPACE INSTRUCTIONS FOR ERRORS WHEN WRITING CHECK- 
POINT RECORDS ONLY. IF DURING THE PROCESS OF WRITING A 
CHECKPOINT, A REFLECTIVE SPOT IS ENCOUNTERED. IOCS 
WILL BACKSPACE OVER BOTH CHECKPOINT AND HEADER RECORD AND 
FORCE END OF REEL. IOCS WILL THEN OPEN THE NEXT FILE 
AND PROCEED TO WRITE THE HEADER AND CHECKPOINT RECORD. 

IOCSCKEXIT - CHECKPOINT EXIT. 

EXIT FROM THE CHECKPOINT ROUTINE TO THE USER'S PROGRAM. 

IOCSCKHLOA - CHECKPOINT HOLD AREA. 

HOLD AREA, DURING CHECKPOINT WRITING. FOR MEMORY LOCA- 
TIONS OOOOl THRU 00024. THESE LOCATIONS WILL BE STORED 
HERE PRIOR TO WRITING OF THE CHECKPOINT RECORD. 

IOCSCKMSG - CHECKPOINT MESSAGE. 

CONSOLE INDICATION AFTER THE CHECKPOINT RESTART HAS 
BEEN SUCCESSFULLY COMPLETED. '20186 HST». 

IOCSCKREC - CHECKPOINT RECORD. 

INFORMATION THAT WILL BE WRITTEN AS THE HEADER OF EACH 
CHECKPOINT WRITTEN. THIS INFORMATION IS USED BY THE RF- 
START PROGRAM TO FIND THE LOCATIONS OF INFORMATION NECES- 
SARY TO RESTORE THE PROGRAM TO A PRIOR STATUS. 

IOCSCKRCC - CHECKPOINT COMPLETE - COUNT. 

CONSOLE INDICATION THAT A CHECKPOINT HAS BEEN WRITTFN. 
LAST THREE POSITIONS OF THE MESSAGE CONTAIN THE SEQUEN- 
TIAL NUMBER IDENTIFYING THIS CHECKPOINT. '10185 CPT XXX'. 

IOCSCLOP - CLOSE OPEN. 

BEGINNING OF THE ROUTINE FOR OPEN, CLOSE, FEORL, AND 
RDLIN MACRO INSTRUCTIONS. 



IOCSCLOSD 

I OCSCLOSOD 

I OCSCLOSDX 
IOCSCLSA 

IOCSCLSAB 

IOCSCLSB 

IOCSCOMP 



CLOSE DUMP. 

DUMP TAPE CLOSE SEQUENCE 
CRO. 



ENTERED VIA THE CLOSO MA- 



CLOSE DUMP DUMMY. 

THE CONTROL UNIT INSTRUCTION THAT IS MODIFIED BY THE 
OPERAND OF THE CLOSD MACRO. 

CLOSE DUMP EXIT. 

DUMP TAPE CLOSE EXIT TO RETURN TO THE USER'S PROGRAM. 

CLOSE A. 

MODIFY AN OUTPUT FILE SCHEDULER. IF A 2-AREA FILE, FOR 
RETURN TO IOCS AT END OF REEL. 

CLOSE AB. 

TESTS FOR A FEORL. 
REEL SEQUENCE NUMBER. 



IF NOT, WILL PROCEED TO CLEAR THE 



CLOSE B. 

ASSEMBLE AND WRITE TRAILER LABEL - EXIT 1 SEQUENCE 
CONSTRUCTS THE TRAILER LABELS IN THE LABEL AREA. SETS 
UP FOR THE POSSIBILITY OF AN EXIT I ROUTINE AND WRITES 
THE TRAILER LABEL. 

COMPARE. 

SEQUENCE USED TO DETERMINE IF THE FILE CURRENTLY BEING 
OPENED IS ALREADY IN THE SORT TABLE. 
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IQCSCPERR - CONSOLE PRINTER ERROR ROUTINE. 

TESTS ALL LATCHES EXCEPT WRONG-LENGTH RECORD AND NOT 
READY. 

IOCSCPEX - CONSOLE PRINTER ERROR EXIT. 

EXIT FROM THE CONSOLE ERROR ROUTINE. 

IOCSCSNENT - CHANNEL SCHEDULER N ENTRY. 

ENTRY USFD DURING 1405/1301 IOCS OPERATIONS. NOT NEC- 
ESSARY FOR CARD/TAPE OPERATIONS ALTHOUGH SEQUENCE IS GEN- 
ERATED. 

I0CSCSXA1 - CHANNEL SCHEDULER X AREA 1. „„,-. 

AREA USED TO STORE INDEX REGISTERS AND PROGRAM STATUS 
LATCHES DURING A UNIT RECORD PRIORITY INTERRUPT. 

IOCSCSXENT - CHANNEL SCHEDULER X ENTRY. 

ENTRY POINT INTO THE CHANNEL SCHEDULER ROUTINE. WILL 
TEST FOR OVERLAP IN PROCESS ON THIS CHANNEL AND BYPASS 
ANY TESTING OF THE LATCHES ON THIS CHANNEL IF IN OVERLAP. 

I0CSCSXE1 - CHANNEL SCHEDULER ENTRY 1. „„.,- 

8RANCH TO USER'S UNIT RECORD PRIORITY ROUTINE. USER'S 
ROUTINE MUST INCORPORATE A SDR INSTRUCTUON AS THE FIRST 
COMMAND TO ROUTE THE RETURN TO IOCS FOR RESTORATION 
OF PROGRAM STATUS LATCHES AND INDEX REGISTERS. 

IOCSCSXPR - CHANNEL SCHEDULER X PRIORITY REQUEST. 

A TEST OF THE CHANNEL PRIORITY REQUEST LATCH FOR THE 
CAUSE OF INTERRUPT. THE I-FIELD OF THIS INSTRUCTION WILL 
CONTAIN THE ADDRESS OF THE INTERRUPTING FILE SCHEDULERS 
IOCSXXBA - STATUS INDICATOR TEST. 

IOCSCSXRET - CHANNEL SCHEDULER X RETURN. ..,.,,, 

POINT OF RETURN FOR ALL FILE SCHEDULERS ON THE CHANNEL 
AFTER AN I/O OPERATION HAS BEEN STARTED. THE STORE B REG- 
ISTER COMMAND WILL TRIGGER IOCSCXPR TO BRANCH TO A STATUS 
TEST ON THE NEXT INTERRUPT. 

IOCSCSXSCN - CHANNEL SCHEDULER X SCHEDULER CLEAR NOP. 

FILE SCHEDULER ENTRY POINT AFTER ERROR CHECK FOR I/O 
COMMAND JUST COMPLETED. PENDING I/O OPERATIONS MAY BE 
STARTED. THIS IS ALSO USEO TO START THE FORCING OF THE 
CHANNEL WHEN IT IS NECESSARY TO COMPLETE ONE I/O COMMAND 
BEFORE STARTING A SECOND. THE FIRST GET AFTER AN OPEN 
MACRO WILL CAUSE THIS CONDITION.. 

IOCSCSXSF - CHANNEL SCHEDULER X SCHEDULER FORCE. 

STARTING OF THE CHANNEL CLEARING BY FORCING THE PROC- 
ESS TO THE ERROR ROUTINE IF OVERLAP IS IN PROCESS ON 
THIS CHANNEL. 

IOCSCSXSFS - CHANNEL SCHEDULER X SCHEDULER FORCE STATUS. „ ITI „ fcl 

WHEN A FILE SCHEOULER IS CONFRONTED WITH THE CONDITION 
THAT ANOTHER I/O OPERATION HAS TO BE STARTED FOR THE SAME 
FILE BEFORE THE PREVIOUS OPERATION IS STARTED OR COM- 
PLETED. THE FILE SCHEDULER WILL BRANCH HERE TO FORCE THE 
CHANNEL TO CLEAR. 

IOCSCSXSFX - CHANNEL SCHEDULER X SCHEDULER FORCE EXIT. 

BRANCH BACK TO THE FILE SCHEDULER THAT FORCED THE 
CLEARING OF THIS CHANNEL. 

I0CSCSXS3 - CHANNEL SCHEDULER X SCHEDULER 3. 

A BRANCH EXIT PRIORITY ALERT TO THE HIGH PRIORITY FILE 
SCHEDULERS PENDING SWITCH. WILL START THE TEST OF ALL 
FILE SCHEDULERS ON THE CHANNEL FOR PENDING OPERATIONS. 

IOCSCSXUPR - CHANNEL SCHEDULER X UNIT PRIORITY ROUTINE. 

ROUTINE FOR STORING PROGRAM LATCHES AND INDEX REGIS- 
TERS THAT MAY BE USED DURING THE USER'S UNIT RECORD IN- 
TERRUPT ROUTINE. 

IOCSCU - CHANNEL UNIT. nr . . „ 

A 140-POSITION TABLE CONSISTING OF SEVEN-POSITION DCW'S 
CONTAINING A DTF ADDRESS. CHANNEL. AND UNIT OF EVERY TAPE 
FILE OPENED BY THE PROGRAM. USED BY THE ERROR ROUTINE TO 
DETERMINE WHICH FILE SCHEDULER INITIATED THE ERROR. 

IOCSDATER - DATE ERROR. 

RETENTION PERIOD ERROR SEQUENCE. SET UP THE DATE ERROR 
MESSAGE. 

IOCSDTFA - OTF ADDRESS. 

THE RELATIVE LOCATION OF THE FILE SCHEDULER END-OF- 
FILE ADDRESS. 

IOCSDTFACT - DTF ACTIVITY. 

RELATIVE LOCATION OF THE FILE SCHEDULER ACTIVITY 
DIGIT. 

IOCSDTFBX - 0TF W |°J C o NT AIN THE DTF ADDRESSES USED AS PARAMETERS FOR 
THE OPEN. CLOSE. FEORL. AND RDLIN MACROS. A ONE-POSITION 
CHARACTER BEFORE ANO AFTER THE DTF BOX WILL CONTAIN THE 
MACRO IDENTIFIER EXPLAINED UNDER IOCSEXIT. 

IOCSDTFI - DTF INITIALIZER. 

RELATIVE LOCATION OF AN AREA WITHIN THE FILE SCHEDULER 
CONTAINING ITS INITIALIZATION ADDRESS. 



I OCSDTFLB 
IOCSDTFLI 



VE LOCATION OF THE LABEL TYPE CHECK CHARACTER. 

1 . 

I/O TYPE CHARACTER. 



I0CSDTFL2 RELATIVE*L0CATION OF THE ALTERNATE DRIVE CHECK CHARAC- 
TER. 

I0CSDTFL3 
I0CSDTFL4 
I 0CSDTFL5 



THE HEADER T/M CHECK CHARACTER. 
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ICCS01 

CHECK CHARACTER. 

I0CSD2 - DIGIT 2. 

RELATIVE LOCATION OF THE EXIT 2 CHECK CHARACTER. 

I0CSC3 - DIGIT 3. 

RELATIVE LOCATION OF THE EXIT 3 CHECK CHARACTER. 

I 0CS04 
I CCSD5 
I 0CSD6 
I 0CSD7 



OF THE EXIT 4 CHECK CHARACTER. 
CHECK CHARACTER. 
CHECK CHARACTER. 

RELATIVE LOCATION OF THE EXIT 7 CHECK CHARACTER. 

I0CSD8 - DIGIT 8. 

RELATIVE LOCATION OF THE EXIT 8 CHECK CHARACTER. 

I 0CS09 - DIGIT 9. 

RELATIVE LOCATION OF THE FILE SERIAL CHECK CHARACTER 
WITHIN THE FILE SCHEDULER. 

ICCSEND - END. 

LOOKS UP AGAINST THE SORT TABLE FOR THE PROPER POSI- 
TION TO INSERT ThE FILE BEING OPENED. 

IOCSENTA - ENTRY A. 

COMMON FILE SCHEDULER INITIALIZATION SEQUENCE. MOVES 
ThE DTF ADDRESS TO THE TAPE ASSIGNMENT TABLE. USES THF 
DTF ADDRESS TO FIND THE FILE INITIALIZATION ADDRESS. THEN 
PROCEEDS TO EXECUTE THE INITIALIZATION. 

IOCSENTAB - ENTRY AB. 

COMMON RE-ENTRY POINT FROM ALL TAPE FILE INITIALIZA- 
TION ROUTINES. TESTS FOR KEWIND PRIOR TO OPEN AND STARTS 
THE STANDARD LABEL TESTS. 

ICCSENTC - ENTRY C. 

INPUT/OUTPUT COMMON TESTS. 

EXIT THREE SEQUENCE - OUTPUT. 

TESTS FOR A USER EXIT 3 ROUTINE. MOVES THE EXIT 3 AD- 
ORESS TO THE SWITCH BOX AND READS THE OUTPUT HEADER. THEN 
IT WILL EXECUTE THE USER EXIT 3 ROUTINE. IF THERE IS NO 
EXIT 3 ADDRESS AND THERE IS NO LABEL CHECKING, IOCS 
WILL BYPASS LABEL READING ON AN OUTPUT FILE. 

IOCSENTCR - ENTRY CR. 

CALLS FOR READING OF ALL INPUT LABELS AND ALL OUTPUT 
LABELS NOT CONTROLLED BY AN EXIT 3 ROUTINE OR NO CHECK. 
IF INPUT LABEL IS NOT TO BE CHECKED, CONTROL IS RETURNED 
TC IOCSENTD. IF THE LABEL IS TO BE CHECKED OR WRITTEN, A 
COMPARE IS MADE FOR A ' 1HOR • AND AN ERROR OCCURS IF NOT 
TRUE. IF AN INPUT LABEL IS TO BE CHECKED, PROCESSING 
CONTINUES TO CHECK CREATION DATE. FILE SEQUENCE, IDENT., 
AND SERIAL NUMBER, IF NECESSARY, ETC. IF THE INPUT HEADER 
IS INVALID. AN ERROR MESSAGE IS CONSTRUCTED AND TYPED. 

I OCSENTO - ENTRY D. 

EXIT 7 SEQUENCE - INPUT. MOVES EXIT 7 ADDRESS TO THE 
SWITCH BOX AND TESTS IF THERE IS AN EXIT 7 ROUTINE. EXAM- 
INES THE DTF TABLE FOR A TAPE MARK AFTER THE HEADER. 

IOCSENTE - ENTRY E. 

ROUTINE FOR REWINDING THE FILE PRIOR TO AND WRITING 
OF THE CONSTRUCTED LABEL. 

IGCSENTF - ENTRY F. 

EXIT 5 SEQUENCE. MOVES EXIT 5 ADDRESS TO THE SWITCH 
BOX AND CHECKS FOR A USER'S EXIT 5 ROUTINE. CHECKS THE DTF 
TABLE FOR, THE POSSIEILITY OF A WRITE TAPE MARK AFTER THE 

OUTPUT HEADER. 

I OCSENTG - ENTRY G. 

END-OF-FILE EXIT SEQUENCE. MOVE THE FILE SCHEDULERS 
END-OF-FILE ADDRESS TO IOCSEXIT. 

I OCSENTH - ENTRY H. 

TEST THE REWIND OPTION AND UPDATE REEL SEQUENCE NUM- 
BER BY ONE. IF A FEORL. BRANCH TO THE REEL CHANGE SEQUENCE 
AND SET UP CONSOLE MESSAGE CONCERNING A REEL CHANGE. 

I OCSENT I - ENTRY I . 

TESTS FOR A FEORL AND BRANCHES TO WRITE A CHECKPOINT 
RECORD. 

IOCSENTJ - ENTRY J. 

SETS THE FILE SCHEDULER BEING OPENED INTO A NOT-PENDING 
STATUS IF THE FILE HAS TWO I/O AREAS. 

I OCSENTRY - ENTRY. 

SEQUENCE USED, AFTER ALL MACRO EXECUTIONS, TO TEST 
IOCS FOR PENDING OPERATIONS PRIOR TO RETURNING TO THE 
USER'S PROGRAM. 

ICCSEORU - END-OF-REEL ROUTINE. 

INITIALIZATION FOR END OF REEL. SETS FOR FEORL. CLEARS 
THE CHANNELS AND TESTS FOR AN OUTPUT FILE. FOR AN 
INPUT FILE. EXIT 6 ADDRESS IS TESTED. 

IOCSERAD - ERROR ADDRESS. 

ADDRESS OF THE DTF IN ERROR DURING WRONG-LENGTH RECORD 
CHECK. WILL BE DECREMENTED BY 33 FOR POSITIONING OF THE 
DTF ROUTINE TO OBTAIN THE WRONG-LENGTH RECORD ADDRESS, IF 

ANY. 

IOCSERBA - ERROR BRANCH ANY. 

WORK AREA FOR THE STATUS TEST OF THE I/O COMMAND INI- 
TIATING THE ERROR SEQUENCE. 

IOCSERUL - ERROR BAD LOCATION. 

f'ULT I -PURPOSE AREA. 

1. WILL CONTAIN THE CONTENTS STORED BY THE SER OR 
SFR FOR NOISE RECORD CHECK. 

2. DURING A DATA CHECK ERBL WILL CONTAIN THE RELA- 
TIVE POSITION OF THE CHARACTER IN ERROR WITHIN THE I/O 
AREA. 



IOCSERCHOP - ERROR CHANNEL - OPERATION. „.-,,, r 

SEQUENCE FOR MODIFICATION OF OPERATION COOES ON STATUS 
TESTS USED BY Tt-E ERROR ROUTINE ACCORDING TO THE CHANNEL. 

CONSISTs'oF TWO 2-POSITION DCW'S USED AS ERROR COUNTS. 
THE FIRST, OR UNLABELED. DCW IS FOR CONTROLLING THE NUM- 
BER OF RETRIES ON A NOISE RECORD READ - 10 ATTEMPTS. THE 
SECONO. OR LABELED DCW CONTROLS THE NUMBER OF RETRIES 
INITIATED BY A DATA CHECK BEFORE AN ERASE FORWARD IS GIV- 
EN - 20 ATTEMPTS. 



ERROR CONTROL. 

TESTING THE TYPES OF DATA CHECKS. 

1. LABEL READ ERROR. '40119 LRE' 

2. READ DATA CHECK. '60113 DCK' 

3. WRITE DATA CHECK. '20114 DCK' 



A NOISE RECORD OR 



IOCSERCTL 

IOCSERDA 

I0CSERDC - ERROR DATA CHECK. 

SEQUENCE FOR TESTING IF THE ERROR IS 
A DATA CHECK. '20118 NLR*. 

I OCSERDLY - ERROR DELAY. 

MOVES NORMAL ERROR EXIT TO MAKE THE EXIT AVAILABLE 
FOR WRONG-LENGTH RECORD ERROR ROUTINES SPECIFIED BY THE 
USER. 

IOCSERDMP - ERROR DUMP. 

DUMP TAPE - WRITING OF IOCSERFLD TO IDENTIFY THE FOL- 
LOWING ERROR RECORD. 

TOCSEREF - ERROR END FILE. 

SET UP OF THE ERROR EXIT TO BRANCH TO THE ENO-OF-REEL 
ROUTINE AT AN END OF FILE. 

IOCSEREX - ERROR EXIT. 

EXIT FROM THE ERROR ROUTINE TO THE FILE SCHEDULER FOR 
THE WRONG-LENGTH RECORD ROUTINE OR THE COMPLETION OF THE 
I/O ROUTINE. 

IOCSERFA - ERROR FUTURE ADDRESS. 

MODIFIES AND INITIALIZES THE FILE SCHEDULER WHEN THE 
ERROR IS A WRONG-LENGTH RECORD ERROR. 

IOCSERFH - ERROR FUTURE HOLD. 

MOVES THE DTF ADDRESS OF THE FILE IN ERROR FOR THE 
MODIFICATION AND USE OF THE FILE SCHEDULER WHEN THE ERROR 
IS A WRONG-LENGTH RECORD. '20117 ZLR'. 

IOCSERFLD - ERROR FIELD. 

A 29-POSITION DCW FOLLOWED BY A GROUP MARK 
WORD MARK FOR HOLDING CONSTRUCTED ERROR MESSAGES FOR 
IOCS INITIALLY '20183 CI '.G. 

I OCSERH - ERROR HALT 1. 

SEQUENCE TO TYPE ERROR MESSAGE, UPDATE AND TEST ERROR 
COUNTS. AND SET UP OF AN ERASE FORWARD. 

IOCSERHLT - ERROR HALT 2. 

ROUTINE FOR TESTING OF THE CONSOLE REPLY RECEIVED FROM 
THE CONSOLE OPERATOR FOR THE OPTION DESIRED. 

I OCSERLV - ERROR LEAVE. 

EXIT FROM THE ERROR ROUTINE TO THE FILE SCHEDULER FOR 
THE WRONG-LENGTH RECORD ROUTINE OR THE COMPLETION OF THE 
I/O ROUTINE. 



ERROR NOISE. 

THE WORK AREA USED TO STORE THE E OR F REGISTER ACCORD- 
ING TO THE CHANNEL DETECTING THE ERROR. USED TO CHECK 
FOR NOISE RECORDS ONLY IF A VALID WRONG-LENGTH RECORD. 

GE ROUTINE AND LOOP. '10100 NR '. 



THE FIRST CHARACTER OF THE VARIOUS 
REQUESTED BY THE ERROR ROUTINE, 



IOCSERNOIS 

IOCSERNR 
10CSER0PTN 

IOCSERPA 

IOCSERPU 
I OCSEROLB 

I0CSERROR 
I OCSERSCN 

I OCSERSK 

IOCSERIO - ERROR 10. 

MOVES THE I/O COMMAND IF THE COMMAND IS TEN POSI- 
TIONS IN LENGTH TO IOCSJUG. 

IOCSEXIT - EXIT. 

MOVES THE DTF ADDRESS OF THE TAPE FILE BEING OPERATED 
UPON TO THE DTF BOX ALONG WITH THE OP. CODE IDENTIFIER 
THAT DEFINES THE MACRO TYPE. 
C DEFINES OPEN. 
+ DEFINES RDLIN. 
« DEFINES FEORL. 
) DEFINES CLOSE. 
J DEFINES THE END OF MACRO. 

IOCSEXITRU - EXIT ROUTINE. 

ROUTINE TESTS FOR THE COMPLETION OF THE OPEN. CLOSE. 
FEORL. AND RDLIN MACROS. IF NOT, CAUSES A BRANCH TO 
BRING IN THE NEXT PARAMETER - DTF ADDRESS. 



ERROR OPTION. 

A DCW CONTAINING 
REPLIES THAT MAY BE 

ERROR PRINT ADORESS. 

MODIFYING OF THE IOCSERFLD WHEN AN ASTERISK IS DETECTED 
DURING THE SCAN. MOVES THE MEMORY ADDRESS OF THE AS- 
TERISK FOR TYPING WITH THE ERROR MESSAGE. 



ERROR QUESTION LAST BRANCH ANY. 

TEST TO CHECK IF THE ERROR WAS GENERATED DURING THE 
LABEL READ/WRITE ROUTINE. 



ERROR SCAN. 

SEQUENCE FOR SCANNING THE ERROR I/O AREA FOR DETECTION 
OF THE ASTERISKS REPLACING THE INVALID CHARACTERS. 
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I0CSE1 

I0CSE2 - EXIT 2. 

RELATIVE LOCATION OF THE EXIT 2 ADDRESS. 

I0CSE3 - EXIT 3. 

RELATIVE LOCATION OF THE EXIT 3 ADDRESS. 

I0CSE4 - EXIT 4. 

RELATIVE LOCATION OF THE EXIT 4 ADDRESS. 

I OCSE5 - EXIT 5. 

RELATIVE LOCATION OF THE EXIT 5 ADDRESS. 

IOCSE6 

I0CSE7 - EXIT 7. 

RELATIVE LOCATION OF THE EXIT 7 ADDRESS. 

I0CSE8 - EXIT 8. 

RELATIVE LOCATION OF THE EXIT 8 ADDRESS. 

IOCSGM - GROUP MARK. 

BLANK FOLLOWED BV A GROUP MARK WORD MARK USED BY 
IOCS IN THE CONSTRUCTION OF ITS VARIOUS MESSAGES AND 
AREAS 

ICCSHALT - HALT. 

CONSOLE REPLY WAITING LOOP. WAITING FOR THE OPERATOR TO 
REPLY TO AN IOCS ERROR MESSAGE. 

IOCSHALTX - HALT EXIT. 

BRANCH BACK TO IOCS ROUTINE WHICH DETERMINED THE 
ERROR. USUALLY THE ROUTINE RETURNED TO WILL TEST THE OP- 
ERATOR REPLY FOR THE ACTION TO BE TAKEN. 

IOCSHAN - HEADER ALPHABETIC NAME. 

RELATIVE LOCATION OF THE HEADER IDENTIFICATION. 

IOCSHCD - HEADER CREATION DATE. 

RELATIVE LOCATION OF THE HEADER CREATION DATE. 

I OCSHDBL - HEADER BLANKS. 

BLANKS USED TO CLEAR THE LABEL AREA BEFORE CONSTRUC- 
TION OF HEADER LABELS. 

IQCSHFS - HEADER FILE SERIAL. 

RELATIVE LOCATION OF THE HEADER FILE SERIAL NUMBER 
WITHIN THE FILE SCHEDULER. 

IOCSHITBL - HIGH TABLE. 

HIGH-ORDER POSITION OF THE PENDING-SWITCH SORT TABLE. 
140 POSITIONS CONSISTING OF 7-CHARACTER SEGMENTS CONTAIN- 
ING THE UNITS POSITION OF THE FILE PENDING SWITCH. CHAN- 
NEL SYMBOL. AND PRIORITY NUMBER. 

IOCSHRS - HEADER REEL SEQUENCE. 

RELATIVE LOCATION OF THE HEADER REEL SEQUENCE. 

IOCSTN - IN. 

UPDATES THE HIGHER PRIORITY PENDING SWITCH OPERAND TO 
THE ADDRESS OF THE CURRENT OPENING FILE'S PENDING SWITCH. 
RESETS INDEX REGISTER 15 TO THE D TF ADDRESS CONTAINED IN 
THE DTF BOX. 

IOCSINTEXT - INTERRUPT EXIT. 

THE BRANCH ENTER PRIORITY ALERT TO THE USER'S PROGRAM 
AFTER AN IOCS RELEASE. 

IOCSIPEOR - INPUT END OF REEL. 

STANDARD INPUT TRAILER LABEL SEQUENCE. READS THE TRAILER 
LABEL AND CHECKS HASH TOTALS. RECORD AND BLOCK COUNT. 
AN UNEQUAL COMPARISON CAUSES AN ERROR MESSAGE. 

IOCSJUG - ERROR JUG. 

WORK AREA FOR I/O COMMAND INITIATING THE ERROR SEQUENCE. 

I OCSLBA - LABEL AREA. 

EIGHTY-POSITION AREA FOR BUILDING OR READING STANDARD 
LABELS. 

IOCSLBAREA - LABEL AREA. 

EIGHTY-POSITION AREA FOR BUILDING OR READING STANDARD 
LABELS. 

IOCSLBIN - LABEL INPUT. 

MOVING INFORMATION FROM THE DTF TO THE LABEL I/O COM- 
MAND. CHANNEL. UNIT. AND CHANNEL STATUS OPERATION CODE. 

I OCSLBCP - LABEL OUTPUT. 

READ/WRITE COMMAND TO OR FROM THE LABEL AREA. STATUS 
TEST FOR A NOT READY. CHANNEL BUSY. OR DATA CHECK. 
BRANCHES BACK TO THE CONTROLLING ROUTINE. 

IOCSLINK - LINKAGE. 

MODIFIES OPERANDS OF PENDING SWITCHES IF CURRENT FILE 
HAS BEEN OPENED PREVIOUSLY. CAUSES AN OPENING OR MISSING 
LINK IN THE PENDING SWITCH CHAIN. 

IOCSLMWTGR - LAST MINUTE WAITING ROUTINE. 

ENTERED WHEN AN ERROR ENCOUNTERED ON CHANNEL 2 WILL 
CAUSE A MESSAGE TO EE TYPED ON THE CONSOLE PRINTER WHILE 
CHANNEL 1 IS STILL IN OVERLAP PROCESS. 

IOCSMDC - MOVE D CONTROL. 

INITIALIZATION FOR AN ALTERNATE DRIVE. SET UP FILE 
SCHEDULER WITH THE ALTERNATE DRIVE BECOMING THE PRIMARY 
□HIVE AND VICE VERSA. 

I OCSKOVE - MOVE. 

MODIFIES THE PENDING SWITCH SORT TABLE TO CORRESPOND 
TO THE CHANCE MADE IN THE PENDING SWITCH CHAIN. OPENING 
THE SORT TABLE FOR A NEW INSERTION. 

IOCSNEPO - OPEN - (SPELLED BACKWARDS). 

UNITS POSITION OF THE TABLE CONTAINING THE ADDRESS OF 
VARIOUS OPEN AND CLOSE ROUTINES RELATING TO THE FILE AC- 
T IV ITY CODF. 



90 



IOCSNHL - NO HEADER LABEL. 

MOVES UNIT INFORMATION ON AN ERROR CAUSED BY AN INVALID 
HEADER WHEN THE FILE SPECIFIES STANDAKD HEADERS. 
SETS UP BOTH THE NO INPUT AND NO OUTPUT HEADER ERROR 
MESSAGES. '40130 NOt-'. AND '3U133 NIH'. 

I0CSMH - NO INPUT HEADER. 

SEQUENCE FOR WRITING THE INPUT INFORMATION IF IN ERROR 
ON THE CONSOLE TYPEWRITER. THE ROUTINE ALSO TESTS THE 
OPERATOR REPLY. 

IOCSNOH - NC OUTPUT HEADER. 

TYPES THE OUTPUT HEADER ERROR MESSAGES. TESTS OPERATOR 
REPLY. 

I0CSN0TE - NOTE. 

ROUTINE FOR TYPING IOCS INDICATIONS AND ERROR MES- 
SAGES. 

ICCSCPEOR - OUTPUT END OF REEL. 

EXIT 8 SEQUENCE. SET UP EXIT 8 ADDRESS IN THE SWITCH 
BOX IF DESIRED. 

ICCSCPEORA - OUTPUT END OF REEL AREA. 

OUTPUT END-OF-REEL SEQUENCE. SET UP MEOft ' IN THE 
LABEL AREA. 

IOCSCPHD - OUTPUT HEAOER. 

RETENTION PERIOD TESTS. CHECKS IF AN OUTPUT FILE IS 
AVAILABLE FOR WRITING. OTHERWISE IT WILL CAUSE A DATE 
ERROR. 

ICCSGPHDAB - OUTPUT HEADER A6. 

MOVE NEEDED INFORMATION FROM OLD OUTPUT HEADER TO THE 
FILE DTF AREA. MOVE THE CURRENT DATE FROM 00115 THRU 
001 19 TO THE DTF AREA. ASSEMBLE A NEW OLTPUT HEADER AND 
TEST FOR THE POSSIBILITY OF AN EXIT 4 ROUTINE. 

IOCSCUT - OUT. 

CPEN THE PENDING SWITCH SORT TABLE TO INSERT THE PEND- 
ING SWITCH ADDRESS OF THE CURRENT OPENING FILE IN CHANNEL 
PRIORITY SEQUENCE. 

I OCSPAEXIT 

I OCSPAHSK - PRIORITY ASSIGNMENT HOUSEKEEPING. 

BEGINNING OF THE PENDING SWITCH SORT ROUTINE. SETS UP 
SEQUENCE FOR ACTUAL SWITCH SORTING. 

IOCSPARG - PRIORITY ARGUMENT. 

TWO-POSITION AREA USED FOR CONSTRUCTION OF THE CHANNEL 
PRIORITY ARGUMENT WHEN LOOKING UP AGAINST THE PENDING 
SWITCH SORT TABLE. 

IOCSPENSWE - PENDING SWITCH ENTRY. 

RELATIVE LOCATION OF AN AREA CONTAINING THE ADDRESS OF 
THE PENDING SWITCH INSTRUCTION TEST FOR EACH FILE SCHED- 
ULER. 

ICCSPRIMER - PRIMER. 

WHITE A TAPE MARK AFTER THE LAST BLOCK. 

ICCSPRIME3 - PRIME 3. 

WRITE THE LAST OUTPUT BLOCK. 

IOCSPS - PROGRAM STATUS. 

FOUR MEMORY LOCATIONS USED FOR STORING THE PROGRAM 
STATUS LATCHES AFTER AN INTERRUPT. MOl'.G. 

IOCSPSR - PROGRAM STATUS RESTORE. 

SEQUENCE FOR RESTORATION OF THE PROGRAM STATUS LATCHES 
PRIOR TO TURNING ON PRIORITY AND RETURNING TO TiAE USER'S 
PROGRAM. 

IOCSRC - HEADER RETENTION CYCLE. 

RELATIVE LOCATION OF THE RETENTION CYCLE. 

IOCSRDLIN - READ LABEL IN. 

READING OF THE RCLIN CARDS AND MOVING OF THE INFORMA- 
TION TO THE DTF AREA OF THE APPROPRIATE FILES. 

IOCSREADRU - READ ROUTINE. 

LABEL READ/WRITE ROUTINE. 

STORES THE B REGISTER FOR THE RETURN, CLEARS THE LABEL 
AREA. AND SETS THE D-MODIFIER FOR A LABEL READ. 

IOCSRENTRY - RE ENTRY. 

RE-ENTRY POINT INTO IOCS AFTER HEADER AND TRAILER 

EXITS. AND CLEARING OF CHANNELS DUE TO AN OPEN. CLOSE. 

FEORL. OR RDLIN MACRO. STORES U5ER*S INDEX REGISTER 15 IN 

A HOLD AREA AND RESETS X15 10 THE CONTENTS OF DTF BOX BE- 
FORE GOING INTO IOCS. 

IOCSREPLY - REPLY. 

FIVE-POSITION AREA FOR THE OPERATOR REPLIES DURING AN 
ERROR ROUTINE. 

IOCSRSCLCT - RESTART CHECKPOINT LOAD ON TAPE. 

POINT OF ENTRY FROM THE CHECKPOINT RESTART PROGRAM TO 
THE PROGRAM BEING RESTARTED. 

IOCSRWDB - REWIND BRANCH. 

CONTROL UNIT COMMAND. RELATING CHANNEL STATUS TESTS. 

IOCSRWDRU - REWIND ROUTINE. 

MISCELLANEOUS CONTROL UNIT OPERATIONS. STORING OF THE 
RETURN ADDRESS, AND PASS CONTROL TO THE REWIND ROU- 
TINE AREA WHERE THE D-MODIFIER FOLLOWS THE BRANCH. 

IOCSRWDRUA - REWIND ROUTINE AREA. 

PICK UP OF THE D-MODIFIER AND THE CHANNEL UNIT INFOR- 
MATION TO BE USED IN THE CONTROL UNIT OPERATION. 

IOCSRWDX 

IOCSRWURU - REWIND UNLOAD ROUTINE. 

STORING OF THE RETURN POINT AND BRANCHING TO THE RE- 
WIND ROUTINE AREA. BRANCH IS FOLLOWED BY THE D-MODIFIER 
FOR A CONTROL UNIT OPERATION RELATING TO REWIND/UNLOAD. 
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IOCSSTLE - STALL ENTRY. 

LINKAGE TO CLEAR CHANNELS OF ALL CURRENT AND PENDING 
OPERATIONS PRIOR TO AN OPEN. CLOSE. FEORL. OR RDLIN. 

IOCSSTLEXT - STALL EXIT. 

RETURN TO IOCS AFTER CLEARING THE CHANNELS AND EX- 
ECUTING EXIT ROUTINES. 

IOCSSWBX - SWITCH BOX . 

THIS ROUTINE RESTORES INOEX REGISTER 15 TO THE USER'S 
CONTENTS AFTER AN OPEN. CLOSE. FEORL. OR RDLIN. USED BY 
IOCS TO BRANCH TO THE USER ROUTINES IF USING EXNADDR 
DIOCS ENTRIES. 

IOCSSWBXA - SWITCH BOX AREA. 

BRANCH INSTRUCTION WHOSE OPERAND IS LOADED WITH AN EXIT 
ADDRESS. 

IOCSTBC - TAPE BLOCK COUNT. 

RELATIVE LOCATION OF THE BLOCK COUNT 

IOCSTBL - TABLE. 

UNITS POSITION OF THE PENDING SWITCH SORT TABLE. 

IOCSTFINIT - TAPE FILE INITIALIZE. 

SKELETON BRANCH INSTRUCTION MODIFIED WITH THE ADDRESS 
OF THE FILE INITIALIZATION ROUTINE. 

I OCSTHT 

IOCSTPCLCS - TAPE CLOSE. 

TAPE CLOSE SEQUENCE. WILL BRANCH OUT FOR PADDING POS- 
SIBILITIES IF THE FILE BEING CLOSED IS AN OUTPUT FILE. 

IOCSTRBL - TRAILER BLANKS. 

BLANKS TO CLEAR THE FIRST TEN POSITIONS OF THE LABEL 
AREA BEFORE CONSTRUCTING A TRAILER LABEL. 

I OCSTRC - TAPE RECORD COUNT. 

RELATIVE LOCATION OF THE RECORD COUNT. 

IOCSTRIGEN - TRIGGER END. 

RELATIVE LOCATION OF A DCW CONTAINING THE ADORESS OF 
THE FILE SCHEDULER BRANCH TO IOCS AFTER SIGNALING 
THE NECESSITY OF AN I/O OPERATION FOR THE FILE. 

I OCSURANY - UNIT RECORD ANY. 

SEQUENCE FOR TESTING THE STATUS LATCHES AND CONSTRUCT- 
ING ASSOCIATED CONSOLE MESSAGES TO BE TYPED OUT ON UNIT 
RECORD ERRORS. '20116 OCK • , '20143 STK', AND "20115 LLC. 

IOCSURBAN - UNIT RECORD BRANCH ANY. 

BRANCH ANY AFTER THE ERROR ROUTINE RETRIES A UNIT RE- 
CORD OPERATION BEFORE RETURNING TO THE MAIN PROGRAM. 

I OCSURDCK - UNIT RECORD DATA CHECK. 

RETRY ROUTINE FOR DATA CHECKS. WILL ATTEMPT TWICE ON 

PRINTER OR PUNCH ERRORS BEFORE TYPING THE ERROR MESSAGE. 

WILL NOT RETRY A READER FILE. 

I OCSURERR 

I OCSUREX IT 

THE UNIT RECORD FILE SCHEDULER. 
IOCSURNR -UNIT RECORD NOT READY. 

SET UP A CONSOLE TYPEWRITER MESSAGE FOR A NOT READY 
INDICATION ON UNIT RECORD FILES. '10100 NR •. 

IOCSUR0PEN - UNIT RECORD OPEN. 

CLEARS THE BLOCK COUNT ON ALL UNIT RECORD FILES DUR- 
ING THE OPENING. 

IOCSURPKUP - UNIT RECORD PICK UP. 

INSTRUCTIONS MOVING THE UNIT RECORD COMMAND AND ITS 
CORRESPONDING STATUS TEST FROM THE UNIT RECORD FILE SCHED- 
ULER TO THE ERROR ROUTINE FOR RETRY. 

IOCSURGE - UNIT RECORD QUESTION ENTRY. 

TEST OF A UNIT RECORD FILE SCHEDULER FOR A BEX FORM OF 
INSTRUCTION AS NEXT INSTRUCTION AFTER THE BRANCH TO THE 
ERROR ROUTINE. COULD BE CONSIDERED AS LOOKING FOR A READER 
FILE SCHEDULER. 

IOCSURTY - UNIT RECORD TYPE. 

SEQUENCE THROUGH WHICH ALL UNIT RECORD ERRORS. EXCEPT 
NOT READY, PASS TO HALT FOR OPERATOR INTERVENTION. 

IOCSUSXA - USER SET EXIT A. 

EXIT 2 SEQUENCE - MODIFY THE SWITCH BOX TO THE EXIT 2 
ADDRESS IF NECESSARY, OTHERWISE WRITE A TAPE MARK. 

IOCSWRITRU - WRITE ROUTINE. 

STORING OF THE RETURN ADDRESS AND SETTING OF A 
D-MODIFIER IN THE LABEL I/O COMMAND. 

IOCSWTGX - WAITING EXIT. 

EXIT. AFTER FORCING CHANNEL 1 TO BE CLEARED, TO PRO- 
CEED WITH THE TYPING OF A CHANNEL 2 ERROR MESSAGE. 

IOCSWTMRU - WRITE TAPE MARK ROUTINE. 

STORING OF THE RETURN POINT AND BRANCHING TO THE RE- 
WIND ROUTINE AREA. BRANCH IS FOLLOWED BY A WTM D-MODIFIER 
FCR THE CONTROL UNIT OPERATION. 

I0CSX15HD - INDEX 15 HOLD. 

WILL CONTAIN THE USER'S CONTENTS OF INDEX REGISTER IS 
DURING PROCESSING IN IOCS. 

I0CS101 - 101. 

TWO DCW'S - 10 AND 1. USEO IN A COMPARE INSTRUCTION 
AGAINST IOCSPS FOR RESTORATION OF THE PROGRAM STATUS 
LATCHES PRIOR TO THE RETURN TO THE INTERRUPTED USER PRO- 
GRAM. 

ICCS20 - 20. 

END-OF-REEL MESSAGE. '20120 EOR'. 
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I0CS31 - 31. 

CREATION RETENTION PERIOD ERROR MESSAGE. '40131 DAT'. 

I0CS32 - 32. 

INPUT HEADER CHECK ERROR MESSAGE. '30132 F I L ' . 

I0CS33 - 33. 

NO INPUT HEADER MESSAGE. "30133 NIH'. 

I0CS34 - 34. 

INPUT TRAILER ERROR MESSAGE. M0134 TIE'. 

I0CS36 - 36. 

RDLIN ERROR MESSAGE. »20136 RLN'. 

I QCS44 - 44. 

•20144 WLR • - UNIT RECORD WRONG LENGTH RECORD MESSAGE. 

00000 - ACTUAL 00000. 

ACTUAL LOCATION 00000 - RELATIVE POSITIONING OF A DE- 
FINE AREA USED IN CONJUNCTION WITH THE DTF ADDRESS TO 
FIND THE NECESSARY ITEMS WITHIN ALL FILE SCHEDULERS. 

100 - ACTUAL 00100. 

LOCATION OF A GROUP MARK WORD MARK USED WHEN STORING 
THE CONTENTS OF INDEX REGISTERS 13 THRU 15 INTO A SAVE 
AREA DURING AN INTERRUPT CAUSED BY AN INQUIRY OR OUT- 
QUIRY. 

101 - ACTUAL 00101. 

LOCATION OF THE INTERRUPT SEQUENCE. WHEN USING THE 
PRIORITY FEATURE. THE SYSTEM AUTOMATICALLY BRANCHES TO 
THIS LOCATION WHEN THE PRIORITY ALERT LIGHT IS ON AND A 
PRIORITY REQUEST INDICATOR LATCH IS TURNED ON. THIS LO- 
CATION WILL CONTAIN A STORE 8 REGISTER INSTRUCTION. 

109 - ACTUAL 00108. 

LOCATION OF A BRANCH EXIT PRIORITY ALERT. ANOTHER IN- 
TERRUPT CAN NOT BE SERVICED DURING IOCS. 

1 lb - ACTUAL 001 15. 

A DEFINE AREA USEO AS A SPACER BETWEEN THE FIXED IN- 
TERRUPT AND THE BEGINNING OF IOCS MINIMUM AREA DEFINED 
WILL BE ENOUGH TO SKIP OVER THE PROGRAM LOAD ROUTINE. 
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Appendix F — File-Dependent Label Definitions 



This section lists the labels that are generated, primarily the label is an explanation of the routine or data area 
because of dtf entries. These labels are for instructions the label addresses, 
and data areas in the file schedulers or file tables. With 



I0CSEO00OX - FILE PENDING SWITCH - CHANNEL 1. 

TAPE FILES - SYMBOLIC IDENTIFIERS FOB FILE PENDING 
SWITCHES ON CHANNEL ONE. 

IOCSF0OO0X - FILE PENDING SWITCH - CHANNEL 2. 

TAPE FILES - SYMBOLIC IDENTIFIERS FOR FILE PENDING 
SWITCHES ON CHANNEL TWO. 

ICCSXXACT - ACTIVITY. 

ALL FILES - THE NUMERIC IDENTIFIER DESCRIBING THE KINO 
OF FILE. 

1. I DEFINES A ONE-AREA TAPE FILE. 

2. 2 DEFINES A TWO-AREA TAPE FILE. 

3. 3 DEFINES A CARD READER FILE. 

4. 4 DEFINES A CARD PUNCH FILE. 

5. 5 DEFINES A PRINTER FILE. 

PRIOR TO THE IOCSXXACT IS A ONE-POSITION DCW CONTAIN- 
ING THE CHANNEL PRIORITY DIGIT FOR TWO-AREA TAPE FILES. 

IOCSXXBA - BRANCH ANY. 

TAPE FILES - THE LOCATION OF THE CHANNEL STATUS TEST 
FOR THE FILE SCHEDULER. 

IOCSXXQASE - BASE. 

ALL TAPE FILES - A FIVE-POSITION DCW CONTAINING MODE. 
X-CONTROL FIELD. AND STATUS TEST CHANNEL OPERATION CODE. 
FOLLOWING THIS MAY BE ANOTHER FIVE-POSITION DCW CONTAIN- 
ING THE SAME FOR AN ALTERNATE DRIVE. IF APPLICABLE. 

lOCSXXeLKL - BLOCK LENGTH. 

VAHIABLE BLOCKED INPUT TAPE FILE - WILL CONTAIN THE 
CONTENTS OF THE E OR F REGISTER AFTER A READ OPERATION 
FOR USE DURING THE WRONG LENGTH RECORD TEST. 

IOCSXX01 - EXIT DIGIT I. 

ALL OUTPUT TAPE FILES - USER EXIT 1 CHECK CHARACTER. 

DEFINES NO EXIT I ADDRESS. 

1 DEFINES AN EXIT 1 ADDRESS. 

FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT 1 
ADDRESS IF APPLICABLE. OTHERWISE. A F I VE-POS I T I ON 
BLANK DCW. 

I0CSXX02 - EXIT DIGIT 2. 

ALL OUTPUT TAPE FILES - USER EXIT 2 CHECK CHARACTER. 

OEFINES NO EXIT 2 ADDRESS. 

1 DEFINES AN EXIT 2 ADDRESS. 

FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT 2 
ADDRESS IF APPLICABLE. OTHERWISE, A FIVE-POSITION 
BLANK DCW. 

IOCSXXD3 - EXIT DIGIT 3. 

ALL OUTPUT TAPE FILES - USER EXIT 3 CHECK CHARACTER. 

DEFINES NO EXIT 3 ADDRESS. 

1 DEFINES AN EXIT 3 ADDRESS. 

FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT 3 
ADDRESS IF APPL ICAOLE. OTHERWISE. A FIVE-POSITION 
BLANK DCW. 

ICCSXXD4 - EXIT DIGIT 4. 

ALL OUTPUT TAPE FILES - USER EXIT 4 CHECK CHARACTER. 

DEFINES NO EXIT 4 ADDRESS. 

1 DEFINES AN EXIT 4 ADDRESS. 

FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT 4 
ADDRESS IF APPL I CABLE. OTHERWISE. A F I VE-POS I T I ON 
BLANK DCW. 

I0CSXXD5 - EXIT DIGIT 5. 

ALL OUTPUT TAPE FILES - USER EXIT 5 CHECK CHARACTER. 

DEFINES NO EXIT 5 ADDRESS. 

1 DEFINES AN EXIT 5 ADDRESS. 

FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT b 
ADDRESS IF APPLICABLE. OTHERWISE. A FIVE-POSITION 
BLANK DCW. 

I0CSXX06 - EXIT DIGIT 6. 

ALL INPUT TAPE FILES - USER EXIT 6 CHECK CHARACTER. 

DEFINES NO EXIT 6 ADDRESS. 

1 OEFINES AN EXIT 6 ADDRESS. 

FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT 6 
ADDRESS IF APPL ICA0LE. OTHERWISE. A FIVE-POSITION 
BLANK DCW. 

I0CSXXD7 - EXIT DIGIT 7. 

ALL INPUT TAPE FILES - USER EXIT 7 CHECK CHARACTER. 

DEFINES NO EXIT 7 ADORESS. 

1 DEFINES AN EXIT 7 ADORESS. 

FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT 7 
ADDRESS IF APPLICABLE. OTHERWISE. A F I VE-POS I T I ON 
BLANK DCW. 

10CSXXD8 - EXIT DIGIT 8. 

ALL OUTPUT TAPE FILES - USER EXIT 8 CHECK CHARACTER. 
DEFINES NO EXIT B ADDRESS, 
t DEFINES AN EXIT 8 AODRESS. 
FOLLOWING THE CHECK CHARACTER WILL BE THE USER'S EXIT 8 
ADDRESS IF APPL I CABLE. OTHERWISE. A F I VE-POS I TI ON 
BLANK DCW. 

IOCSXXEMTY - EMPTY. 

CARD READER AND INPUT TAPE FILES - THE ENTRY POINT TO 
THE FILE SCHEDULER FROM A GET MACRO- 1 NS TRUC T I ON WHEN A 
READ OPERATION IS TO BE PERFORMED. 

IOCSXXENOA - END A. 

FIXEO BLOCKED FILES - ADDRESS OF THE LAST RECORD MARK 
OF I/O AREA A. THIS IS INSERTED INTO IOCSXXENDD WHEN I N- 
FORMATION IN THE AREA 15 READY TO BE PROCESSED. 

IOCSXXENDB - END B. 

FIXED BLOCKED FILES - ADDRESS OF THE LAST RECORD MARK 
OF I/O AREA B. THIS IS INSERTED INTO IOCSXXENDD WHEN IN- 
FORMATION IN THE AREA IS READY TO BE PROCESSED. 
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IOCSXXENDD - END DIGIT. 

BLOCKED TAPE FILES - LOCATION OF THE CURRENT INFOR- 
MATION AREA RECORD MARK. USED BY THE GET TO COMPARE 
AGAINST IOCSXXSAVE FOR INITIATING A BRANCH TO THE FILE 
SCHEDULER ON FIXED BLOCKED FILES AND VARIABLE BLOCKED IN- 
PUT FILES. ON VARIABLE BLOCKED OUTPUT FILES. THIS FIELD 
IS COMPARED AGAINST IOCGXXRLAC BEFORE INITIATING THE 
BRANCH. 

IOCSXXENDI - END INITIALIZER. 

BLOCKED TAPE FILES - ZERO ADDED TO IOCSXXSAVE DURING 
INITIALIZATION TO FORCE A BRANCH TO THE FILE SCHEDULER 
ON THE FIRST GET TO AN INPUT FILE. ALTHOUGH DEFINED FOR 
OUTPUT FILES. IT IS NOT USED. 

IOCSXXEOF - END OF FILE. 

CARD READER AND ALL INPUT TAPE FILES - WILL CONTAIN 
THE USER'S END-OF-FILE ROUTINE ADDRESS. 

IOCSXXEXIT - EXIT. 

ALL FILES EXCEPT PASSIVE TAPE FILES - BRANCH BACK TO 
THE USER'S ROUTINE. 

IOCSXXFSCK - FILE SERIAL CHECK. 

ALL TAPE FILES - THE CHECK CHARACTER FOR FILE SERIAL. 
FOR INPUT FILES. WILL CHECK THE FILE SERIAL NUMBER 
AGAINST IOCSXXHFS. OUTPUT FILES. IOCS WILL READ LABELS 
AND RETAIN THE FILE SERIAL DURING THE CONSTRUCTION OF A 
NEW LABEL AND INSERT THE ORIGINAL FILE SERIAL NUMBER INTO 
THE NEW LABEL PRIOR TO WRITING IT. 

DEFINES CHECKING OF THE FILE SERIAL NUMBER. 

1 DEFINES NO CHECKING OF THE FILE SERIAL NUMBER. 

IOCSXXFULL - FULL. 

PRINTER. PUNCH. AND OUTPUT TAPE FILES 
POINT INTO THE FILE SCHEDULER FROM A PUT 
A WRITE OPERATION IS TO BE PERFORMED. 

IOCSXXHFS - HOLD FILE SERIAL. 

ALL TAPE FILES - THE HOLD AREA FOR THE FILE SERIAL 
NUMBER WILL CONTAIN THE SERIAL NUMBER TO CHECK AGAIN5T 
LABELS ON INPUT FILES. ON OUTPUT FILES. THE FILE SERIAL 
NUMBER IS MOVED HERE AND IS USED IN THE CONSTRUCTION OF 
THE NEW HEAOER LABEL. FOLLOWING THIS HOLD AREA WILL BE 
THE REMAINING INFORMATION NECESSARY TO CONSTRUCT OR CHECK 
THE HEADER LABEL FOR THE FILE. 

ICCSXXINIT - INITIALIZATION. 

TAPE FILES - SEQUENCE TO INITIALIZE FILE I/O COMMANDS 
AND FORCE A DOUBLE READ ON TWO-AREA FILES DURING THE 
FIRST GET COMMAND TO THAT FILE. INDEX REGISTERS ARE INI- 
TIALIZED ON OUTPUT FILES. 

TOCSXXIOA - I/O A. 

ALL FILES EXCEPT PASSIVE TAPE FILES - THE I/O COMMAND 
THAT WILL CAUSE READING TO OR WRITING FROM I/O AREA A. IN 
UNIT RECORD FILE SCHEDULERS. IT WILL BE THE I/O COMMAND 
FOR THAT SCHEDULER. 

IOCSXXIOAR - I/O AREA. 

UNIT RECORD FILES - AN EQUATE TO THE AREA SPECIF IEO 
BY THE IOAREA DTF ENTRY. 

IOCSXXIOE - I/O B. 

TAPE FILES - THE I/O COMMAND THAT WILL CAUSE READING 
TO OR WRITING FROM I/O AREA B. 

I OCSXXPA - PRIMARY AREA. 

TAPE FILES - TESTS FOR THE LAST I/O AREA USED AND SETS 
UP NEXT I/O COMMAND TO USE I/O AREA A. 

ICCSXXPADS - PADDING SEQUENCE. 

BLOCKED OUTPUT FILES - FIXED, WRITING OF THE LAST OUT- 
PUT BLOCK. TESTS FOR THE NECESSITY OF PADDING, SAVES AND 
SETS THE CONTENTS OF INDEX REGISTER 15 WITH THE ADDRESS 
OF THE FIRST LOCATION TO START PADOING. VARIABLE. WRITING 
OF THE LAST BLOCK ONLY. 

ICCSXXPFCR - PADDING FORCE. 

FIXED BLOCKED OUTPUT FILES - RESTORE INDEX REGISTER 15 
AND BRANCH TO WRITE THE PADDING RECORD. 

IOCSXXPLB1 - PADDING LAST BLOCK I. 

FIXED BLOCKED OUTPUT FILES - UPDATE INDEX REGISTER 15 
TO PASS THE PADDING OF A RECORD MARK POSITION AND BRANCH 
BACK TO THE PADDING ROUTINE. 

I0CSXXPLB2 - PADDING LAST BLOCK 2. 

FIXED BLOCKED OUTPUT FILES - TEST FOR RECORD MARKS 
WITHIN THE AREA TO BE PADOED. TESTS FOR END OF PADDING 
ROUTINE. 

IOCSXXPRIM - PRIMARY. 

INPUT TAPE FILES - SETS UP TO FORCE TWO CONSECUTIVE 
READS ON THE FIRST GET INSTRUCTION TO THE FILE. 

ICCSXXPSVE - PADDING SAVE. 

FIXED BLOCKED OUTPUT FILES - A FIVE-POSITION DCW FOR 
STORING THE CONTENTS OF INDEX REGISTER 15 DURING THE PAD- 
DING OF THE LAST BLOCK. 

IOCSXXPTRC - PADDING - TAPE RECORD COUNT. 

FIXED BLOCKED OUTPUT FILES - ACCUMULATE HASH TOTALS. 

IOCSXXRCLN - RECORD LENGTH. 

FIXED BLOCKED FILES - CONTAINS THE RECORD LENGTH FOR THIS 
FILE. 

IOCSXXRLAC - RECORD LENGTH AT CURRENT. 

VARIABLE BLOCKED OUTPUT TAPE FILE - WILL CONTAIN THE 
ADDRESS OF THE LAST LOCATION USED FOR STORING DATA. IT IS 
USED TO DETERMINE WHEN THE I/O AREA HAS BEEN FILLED. 

IOCSXXSA - SECONDARY AREA. 

TAPE FILES - SETS UP NEXT I/O COMMAND TO USE I/O AREA B. 

I OCSXXSAVE - SAVE. 

TWO-AREA TAPE FILES- WILL CONTAIN THE LOCATION OF THE 
AREA OR SEGMENT OF THE AREA THAT HOLDS CURRENT INFORMA- 
TION. THE GET AND PUT MACROS UPDATE THIS AREA UNTIL THE 
COMPLETE AREA HAS BEEN USED. AT THIS TIME, A GET OR PUT 
MACRO WILL CAUSE THE NEXT AREA TO BECOME AVAILABLE 
AND CONDITION THE FILE SCHEDULER TO INITIATE ANOTHER I/O 
CPERAT ION. 
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IOCSXXSFS 



IOCSXXSFX 



IOCSXXSVRL 



I OCSXXTBC 
IOCSXXTFLB 



SCHEDULER FORCE SEQUENCE. 

FORCES THE CHANNEL TO CLEAR. AND BACKSPACES THE TAPE 
FOR A RETRY 

SCHEOULER FORCE EXIT. 

ALL FILES EXCEPT PASSIVE TAPE FILES - BRANCHING TO THE 
CHANNEL SCHEOULER WHEN FORCING THE PREVIOUS OPERATION TO 
BE STARTED OR COMPLETED. WILL FORCE THE CHANNEL TO BE 
CLEARED. 

SINGLE VARIABLE RECORD LENGTH. 

VARIABLE BLOCKED OUTPUT TAPE FILES - DURING A PUT OP- 
ERATION, THIS WILL BE LOADED WITH THE CURRENT RECORD 
LENGTH. THIS IS ADDED TO IOCSXXRLAC TO CHECK IF THE OUT- 
PUT AREA HAS BEEN FILLED. 



TAPE FILE LABEL. 

ALL TAPE FILES - THE CHECK CHARACTER DEFINING TYPE OF 
TAPE LABELS. 

DEFINES STANOARD LABELS. 

1 DEFINES AN UNLABELLED FILE. 

2 DEFINES NON STANDARD LABELS. 

TAPE FILE LABEL 1. 

ALL TAPE FILES - FILE TYPE CHECK CHARACTER. 

DEFINES OUTPUT OR PASSIVE TAPE FILES. 

1 OEFINES INPUT FILES. 

IOCSXXTFL2 - TAPE FILE LABEL 2. 

ALL TAPE FILES - ALTERNATE DRIVE CHECK CHARACTER. 

DEFINES NO ALTERNATE DRIVE. 

1 DEFINES AN ALTERNATE DRIVE. 



IOCSXXTFL1 



IOCSXXTFL3 



I0CSXXTFL4 



TAPE FILE LABEL 3. 

ALL TAPE FILES - CHECK LABEL CHECK CHARACTER. 

DEFINES A CHECK OF THE COMPLETE LABEL. 

1 DEFINES NO LABEL CHECKING. 

2 DEFINES IDENTITY CHECKING ONLY. 

TAPE FILE LABEL 4. 

ALL TAPE FILES - TAPE MARK AFTER HEADER CHECK CHARAC- 
TER. 

DEFINES NO TAPE MARK. 

1 DEFINES A TAPE MARK. 

I0CSXXTFL5 - TAPE FILE LABEL 5. 

ALL TAPE FILES - REWIND OPTION CHECK CHARACTER. 

DEFINES NO REWIND. 

1 DEFINES REWIND ONLY. 

2 DEFINES REWIND UNLOAD. 

IOCSXXTHT - TAPE HASH TOTAL. 

ALL TAPE FILES - THE DTF WORK AREA FOR ACCUMULATING 
HASH TOTALS FOR THE FILE. 



I OCSXXTRC 



I OCSXXTRIG 



IOCSXXVBCA 



TAPE RECORD COUNT. 

ALL TAPE FILES - DTF WORK AREA FOR RECORD COUNT. REC- 
ORD COUNT IS UNOBTAINABLE FOR UNBLOCKED FILES. 

TRIGGER. 

ALL FILES EXCEPT PASSIVE TAPE FILES - BRANCH BACK TO 
IOCSENTRY AFTER THE SETTING OF THE PENDING SWITCH. INI- 
TIALLY SET TO FORCE TWO READS FOR AN INPUT FILE ON THE 
FIRST GET OPERATION. ON VARIABLE BLOCKED INPUT FILES. IT 
CHECKS THE LAST I/O OPERATION FOR A WRONG-LENGTH RECORD. 
UNIT RECORD FILES BRANCH TO IOCSENTRY. 

VARIABLE BLOCK COUNT A. 

FIXED BLOCKED OUTPUT AND VARIABLE BLOCKED FILES - FOR 
A FIXEO BLOCKED OUTPUT FILE. THIS CONTAINS THE ADDRESS OF 
THE GROUP MARK WORD MARK LOCATION FOR I/O AREA A. WILL BE 
USEO DURING THE PADDING ROUTINE. FOR VARIABLE BLOCKED 
FILES. WILL CONTAIN THE UNITS POSITION OF THE BLOCK CHAR- 
ACTER COUNT FOR I/O AREA A. 

IOCSXXVBCB - VARIABLE BLOCK COUNT B. 

FIXED BLOCKED OUTPUT AND VARIABLE BLOCKED TAPE FILES - 
WILL CONTAIN THE LOCATION OF THE GROUP MARK WORD MARK 
POSITION OF I/O AREA B. WILL BE USED DURING THE PADDING 
ROUTINE FOR A FIXED BLOCKED OUTPUT FILE. WILL CONTAIN THE 
ADDRESS OF THE BLOCK CHARACTER COUNT UNITS POSITION FOR 
VARIABLE BLOCKED FILES. 



I OCSXXVBSA 



IOCSXXVBSB 



I OCSXXWLR 



I OCSXXWLRC 



IOCSXXWLRX 



I OCSXXWLX 



I OCSXXWORK 



VARIABLE BLOCK SINGLE A. 

VARIABLE BLOCKED TAPE FILES - AN ADCON OF THE UNITS 
POSITION OF I/O AREA A. MOVED INTO IOCSXXENDO TO CONTROL 
THE AMOUNT OF THE I/O AREA REMAINING TO BE USED BY A GET 
OR PUT INSTRUCTION. 

VARIABLE BLOCK SINGLE B. 

VARIABLE BLOCKED TAPE FILES - AN ADCON OF THE UNITS 
POSITION OF I/O AREA B. MOVED TO IOCSXXENDD TO CONTROL 
THE AMOUNT OF THE I/O AREA REMAINING TO DE USED BY A GET 
OR PUT INSTRUCTION. 

WRONG-LENGTH RECORD. 

VARIABLE BLOCKED INPUT FILES - WRONG-LENGTH RECORD 
SEQUENCE. UPDATES THE WRONG-LENGTH RECORD COUNT AND TESTS 
FOR TEN RETRIES. IF SO. WILL BRANCH TO IOCSXXWLX. 

WRONG-LENGTH RECORO COUNT. 

VARIABLE BLOCKED INPUT TAPE FILES - A COUNT OF THE 

NUMBER OF TIMES THE WRONG-LENGTH RECORD ROUTINE WAS 
ENTERED. 

WRONG LENGTH RECORD EXIT. 

VARIABLE BLOCKED INPUT - IF THE BLOCK CHARACTER COUNT 
DOES NOT AGREE WITH THE NUMBER OF CHARACTERS READ, THIS 
WILL BRANCH TO THE WRONG-LENGTH RECORD ROUTINE. 

WRONG LENGTH EXIT. 

VARIABLE BLOCKED INPUT FILES - BRANCH TO THE USER'S 
WRONG-LENGTH RECORD ROUTINE ADDRESS. 

WGRK. 

ALL FILES EXCEPT PASSIVE TAPE FILES - THE ADDRESS OF 
THE WORK AREA ASSIGNED TO THIS FILE. 



IOCSXXWTG - WAITING. 

TAPE FILES - TESTS THE PENDING SWITCH FOR PENDING OP- 
ERATIONS. IF NOT, CONTINUE TO READ OR WRITE OPERATION. 
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